Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

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


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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.041 c
14-22322          Дремучий              2001-11-03 14:10  2002.01.08  
Кто возмется сделать? Пригодиться всем.


6-22314           SDS                   2001-06-10 23:58  2002.01.08  
Вопрос о методе POST


4-22501           Art                   2001-11-02 08:30  2002.01.08  
А можно ли запретить использование определенных Api другим приложениям?


6-22287           Андрей                2001-08-08 10:35  2002.01.08  
Кто нибудь работал с WebSnap ????


6-22283           Yuraz                 2001-10-08 11:05  2002.01.08  
Как можно ещё сетевой принтер подключить, кроме стандартного способа??