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(); <<<< что тут ей написать???
end;

Obrigado!



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

Можно в Object Inspector`е событию OnClick присвоить Button1Click, если в рун-тайме переопределять события не понадобится.



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

Sender и пиши, но проще как tovSuhov написал или задать (хоть в TForm1.Create)
Button2.Onclick:=Button1Click;



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

Пиши Button1Click(Self);



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

В данном конкретном случае просто пиши Button1Click(nil);



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

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

em cima









Memória: 0.82 MB
Hora: 0.08 c
4-22495
soluço
2001-11-05 09:57
2002.01.08
Princípios básicos do WinAPI


1-22160
Yakudza
2001-12-20 16:46
2002.01.08
Copiar para a área de transferência


14-22331
vasco
2001-10-26 17:57
2002.01.08
Existem muitos canhotos entre os programadores?


1-22231
Leviatã
2001-12-16 22:16
2002.01.08
BitBlt ...


14-22343
Esmerilhão
2001-11-02 14:17
2002.01.08
Com uma risada, quase caí no chão!





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