Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Gente, ¡una pregunta bastante fácil! Enlace al procedimiento en una palabra. Encontrar ramas similares


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

procedimiento TForm1.Button1Click (Sender: TObject);
var
a, b: entero;
comenzar
a: = 3;
b: = 0;
b: = a * StrToInt (Edit4.Text) * StrToInt (Edit3.Text);
Label7.Caption: = IntToStr (b);
fin;

procedimiento TForm1.Button2Click (Sender: TObject);
comenzar
Button1Click (); <<<< que hay para escribirla ???
fin;

Gracias!



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

Puede asignar un Button1 Haga clic en el evento OnClick en el Inspector de objetos, si no necesita anular eventos en el tiempo de ejecución.



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

Envíe y escriba, pero más fácil como tovSuhov escribió o configuró (al menos en TForm1.Create)
Button2.Onclick: = Button1Click;



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

Escribe Button1Click (Self);



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

En este caso particular, simplemente escriba Button1Click (nil);



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.55 MB
Tiempo: 0.027 c
1-22059
Leo ^ sol
2001-12-19 07:24
2002.01.08
Quien trabajó en


1-22247
como
2001-12-17 11:29
2002.01.08
Ayudar a alguien puede ...


1-22071
KAA
2001-12-19 10:48
2002.01.08
Dos servicios interfieren entre sí.


1-22002
BFG
2001-12-16 16:24
2002.01.08
Gráficos


3-21899
Yelchev
2001-12-03 10:26
2002.01.08
Acceso rápido al ORACLE DB





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español