| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Serg5 ©   (2001-12-19 15:14:00) 

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;

Спасибо!

---

Mick   (2001-12-19 15:59:00) [1]

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

---

Alexander   (2001-12-19 15:51:00) [2]

Пиши Button1Click(Self);

---

MBo   (2001-12-19 15:25:00) [3]

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

---

tovSuhov   (2001-12-19 15:20:00) [4]

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

---

Наверх