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

Люди, совсем лёгкий вопрос! Ссылка на процедуру, одним словом. Encontrar ramas similares


Serg5 (2001-12-19 15:14) (1)

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

Gracias!


tovSuhov2001-12-19 15:20) (1)

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


MBo (2001-12-19 15:25) (1)

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


Alexander   (2001-12-19 15:51) (1)

Пиши Button1Click(Self);


Mick (2001-12-19 15:59) (1)

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




Páginas: 1 rama entera

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

arriba















Memoria: 0.81 MB
Tiempo: 0.034 c
4-22466
Arte
2001-10-31 15:21
2002.01.08
Y también, ¿cómo limitar el plano del movimiento del ratón a los bordes de forma?


14-22411
MadBurro
2001-11-12 20:52
2002.01.08
WinXP cd-key


1-22141
N
2001-12-20 10:04
2002.01.08
C -> Pascal: указатель на функцию внутри структуры


3-21974
Dup
2001-12-06 10:30
2002.01.08
TQRExpr


1-22169
Kreo
2001-12-20 21:16
2002.01.08
Файлы и доступ к ним





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