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

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

Процедура при клике [D7, WinXP]

AntonXXX ©   (2005-11-15 19:25:00) 

var b : TButton;
...
procedure DoBeep;
begin
   Beep;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   b := TButton.Create(Self);
   b.Parent := Self;
   b.Left := 10;
   b.Top := 10;
   b.Caption := 'MyButton';
end;
...
Как сделать, чтобы при клике на кнопку b выполнялась процедура DoBeep?

---

Vlad   (2005-11-15 19:38:00) [1]

type
 TForm1 = class(TForm)
...
private
 procedure DoBeep(Sender: TObject);
...

procedure TForm1.DoBeep(Sender:TObject);
begin
 Beep;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 ...
 b.OnClick := DoBeep;
 ...
end;

---

Anatoly Podgoretsky   (2005-11-15 19:32:00) [2]

b.OnClick := DoBeep
Только сделай это методом TForm1

---

Наверх