Форум: "Начинающим";
Текущий архив: 2012.03.04;
Скачать: [xml.tar.bz2];
ВнизКак определить событие 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 -- Спасибо
← →
OW © (2011-11-25 14:23) [7]т.е. пишете метод 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]Спасибо
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2012.03.04;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c