type
TForm1 = class (TForm)
//...
procedure ButtonClick(Sender: TObject); // Простая процедура
//...
end;
//...
procedure TForm1.ButtonClick(Sender: TObject)
begin
ShowMessage('Its works!!!');
end;
procedure TForm1.CreateButtonDynamically;
var button: TButton;
begin
button:=TButton.Create(Self);
//... инициализация кнопки
button.OnClick:=ButtonClick;
//...
end;
Обработчик событий
Кто-нибудь знает как написать обработчик события для динамически созданного обьекта?
В обработчик объекта :)
[quote=Koriz]Кто-нибудь знает как написать обработчик события для динамически созданного обьекта?[/quote] Практически также как и для designtime объекта ;) Дело в том, что обработчик объекта - это просто метод класса с заранее определенным набором параметров:
[quote=Koriz]В обработчик объекта :)[/quote] Оригинально...
Код:
[quote=Koriz]В обработчик объекта :)[/quote] Оригинально...
[QUOTE=makbeth]Практически также как и для designtime объекта ;) Дело в том, что обработчик объекта - это просто метод класса с заранее определенным набором параметров:
Оригинально...[/QUOTE]
Чем? Я сказал , ты воплотил в коде, в чем оригинальность?
Код:
type
TForm1 = class (TForm)
//...
procedure ButtonClick(Sender: TObject); // Простая процедура
//...
end;
//...
procedure TForm1.ButtonClick(Sender: TObject)
begin
ShowMessage('Its works!!!');
end;
procedure TForm1.CreateButtonDynamically;
var button: TButton;
begin
button:=TButton.Create(Self);
//... инициализация кнопки
button.OnClick:=ButtonClick;
//...
end;
TForm1 = class (TForm)
//...
procedure ButtonClick(Sender: TObject); // Простая процедура
//...
end;
//...
procedure TForm1.ButtonClick(Sender: TObject)
begin
ShowMessage('Its works!!!');
end;
procedure TForm1.CreateButtonDynamically;
var button: TButton;
begin
button:=TButton.Create(Self);
//... инициализация кнопки
button.OnClick:=ButtonClick;
//...
end;
Оригинально...[/QUOTE]
Чем? Я сказал , ты воплотил в коде, в чем оригинальность?