Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

Люди, совсем лёгкий вопрос! Ссылка на процедуру, одним словом.   Найти похожие ветки 

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

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
begin
a:=3;
b:=0;
b:=a*StrToInt(Edit4.Text)*StrToInt(Edit3.Text);
Label7.Caption:=IntToStr(b);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1Click(); <<<< что тут ей написать???
end;

Спасибо!


 
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 вся ветка

Текущий архив: 2002.01.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
14-22358
Дремучий
2001-11-07 19:08
2002.01.08
Где имеется фришный НЕБОЛЬШОЙ, но СКОРОСТНОЙ хостинг ?


14-22381
Феликс
2001-11-08 20:41
2002.01.08
Что это было?


7-22445
Kirill
2001-09-21 19:03
2002.01.08
Record в DLL


1-22112
greenrul
2001-12-15 13:55
2002.01.08
Подскажите компонент Button


1-22225
Reyst
2001-12-16 15:56
2002.01.08
Не могу сохранить ресурс в файл