Как определить событие OnClik в динамически созданном объекте Bu

← →
Aleks (2011-11-25 14:00) [0]

Доброго времяни суток. Как определить событие OnClik в динамически созданном объекте Button.
Я делаю:

procedure TForm1.Button1Click(Sender: TObject)
Var
Butto: array of TButton;
Begin
Butto := TButton.Create(Self);
Butto.Parent := Form1;
// создал кнопку но как и где отследить её нажатие ??? звук Beep по её нажатию например.
End;

Объясните с примером, пожалуйста.

← →
RWolf © (2011-11-25 14:03) [1]

btn.OnClick := MyBtnClick;

← →
Aleks (2011-11-25 14:12) [2]

RWolf © (25.11.11 14:03) [1]

btn.OnClick := MyBtnClick;

Объясни по подробней пожалуйста.

← →
Омлет © (2011-11-25 14:15) [3]

Butto := TButton.Create(Self);
Butto.Parent := Form1;
Butto.OnClick := MyBtnClick;

procedure TForm1.MyBtnClick(Sender: TObject);
begin
ShowMessage("olala");
end;

← →
OW © (2011-11-25 14:20) [4]

procedure TForm1.OnClickBtn(sender: TObject);
begin
if sender is TButton then
ShowMessageFmt("Êíîïêà ñ tag = %d",[TButton(sender).Tag]);
end;

procedure TForm1.btn1Click(Sender: TObject);
var
b: TButton;
begin
b := TButton.Create(nil);
b.Tag := 1;
b.Visible := false;
b.Parent := Form1;
b.Left := 50;
b.Top := 50;
b.OnClick := OnClickBtn;
b.Visible := True;

b := TButton.Create(nil);
b.Tag := 2;
b.Visible := false;
b.Parent := Form1;
b.Left := 150;
b.Top := 150;
b.OnClick := OnClickBtn;
b.Visible := True;
end;

← →
Aleks (2011-11-25 14:21) [5]

Спасибо Омлет, RWolf . Разобрался.

Butto.OnClick := //а тут пишем имя процедуры-обработчика

← →
Aleks (2011-11-25 14:22) [6]

OW -- Спасибо

т.е. пишете метод OnClickBtn

TForm1 = class(TForm)
btn1: TButton;
procedure btn1Click(Sender: TObject);
private { Private declarations }
public { Public declarations }
procedure OnClickBtn(sender: TObject);
end;

и реализация его
procedure TForm1.OnClickBtn(sender: TObject);
begin
if sender is TButton then
ShowMessageFmt("Êíîïêà ñ tag = %d",[TButton(sender).Tag]);
end;

затем присвоение
b := TButton.Create(nil);
b.OnClick := OnClickBtn;

← →
Aleks (2011-11-25 14:44) [8]

Спасибо

Как определить событие OnClik в динамически созданном объекте Bu Найти похожие ветки