Процедура при клике

← →
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

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;

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