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.56 MB
Tiempo: 0.021 c
14-22319
iea
2001-11-02 13:34
2002.01.08
Cualquiera que use (l) gafas! La pregunta no es ociosa.


4-22493
mangoost
2001-11-05 12:06
2002.01.08
Cómo omitir una infracción de acceso al intentar escribir (+)


3-21952
S_King
2001-12-04 10:18
2002.01.08
Determine la primera identificación libre


1-22243
Gumbert-Gumbert
2001-12-16 22:22
2002.01.08
¿Cómo sacar la raíz del noveno grado en Delphi?


3-21906
Yuri Zhukov
2001-11-21 09:40
2002.01.08
Oracle ADO vs DOA - fido7.ru.delphi.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 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