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

Gracias!



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);



Páginas: 1 rama entera

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

arriba









Memoria: 0.82 MB
Tiempo: 0.084 c
7-22423
Alex_K_xelA
2001-09-21 18:55
2002.01.08
Lectura de sectores desde un CD-ROM.


3-21976
Termik
2001-12-06 11:47
2002.01.08
Procedimientos almacenados, objetos dinámicos.


1-22236
T2
2001-12-16 07:10
2002.01.08
serial.vxd


6-22315
Marser
2001-08-01 16:04
2002.01.08
Mensaje SMS


1-22059
Leo ^ sol
2001-12-19 07:24
2002.01.08
Quien trabajó en





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 Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana 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