Скачать: CL | DM;

Процедура при клике   Найти похожие ветки 

← →
AntonXXX   (2005-11-15 19:25) [0]

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?

---

← →
Anatoly Podgoretsky ©   (2005-11-15 19:32) [1]

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

---

← →
Vlad ©   (2005-11-15 19:38) [2]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.042 c