Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Pessoas, uma pergunta muito fácil! Link para o procedimento, em uma palavra. Encontre agências semelhantes


Serg5   (2001-12-19 15:14) [0]

procedimento TForm1.Button1Click (Sender: TObject);
var
a, b: inteiro;
começar
a: = 3;
b: = 0;
b: = a * StrToInt (Edit4.Text) * StrToInt (Edit3.Text);
Label7.Caption: = IntToStr (b);
end;

procedimento TForm1.Button2Click (Sender: TObject);
começar
Button1Click (); <<<< o que há para escrever para ela ???
end;

Obrigado!



tovSuhov   (2001-12-19 15:20) [1]

Você pode atribuir Button1Click ao evento OnClick no Inspetor de Objetos se não precisar redefinir eventos no tempo de execução.



MBo   (2001-12-19 15:25) [2]

Remetente e escrever, mas é mais fácil do que escreveuSvov ou perguntou (mesmo no TForm1.Create)
Button2.Onclick: = Button1Click;



Alexander   (2001-12-19 15:51) [3]

Escreva Button1Click (Self);



Mick   (2001-12-19 15:59) [4]

Neste caso particular, apenas escreva Button1Click (nil);



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima





Memória: 0.55 MB
Hora: 0.021 c
14-22397
morto
2001-11-10 18:49
2002.01.08
Alguém tem um mapa de contorno GIF ou JPG do mundo?


1-22035
contrabandista
2001-12-18 14:02
2002.01.08
Editor de Texto2


14-22350
Ouriço
2001-11-04 16:49
2002.01.08
Eu sento aqui e nada para fazer!


14-22386
Denso
2001-11-08 21:13
2002.01.08
É interessante Quanto custa?


1-22233
Delphimun
2001-12-15 12:47
2002.01.08
Como executar um arquivo localizado no componente Tolecontainer





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese Romeno Russa sérvio Slovak esloveno Espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol