события на динамически созданные кнопки.

[Gambler]

Привет всем! Без лирических отступлений, сразу к делу!

вот таким кодом я создаю новую кнопку:

var 
Button: TButton; 
begin 
Button:= Tbutton.Create(self);
Button.Parent := self; 
Button.Left :=10; 
Button.Top :=10; 
Button.Caption := 'Новая кнопка';  
end;

Теперь сам вопрос: как сделать так, чтобы при нажатие созданной кнопки выполнялся какой то код.

[X=Vitamin=X]

Т. к. твоя переменная напрямую создается по self то естественно она и методы унаследует и обработчики событий, тоесть все, в принципе можешь смело писать Button.OnClick:=Some_Click_Procedur e;
Дерзай! ! !

З.Ы.
О дефектах, и ошибках большая просьба сообщить ! ! !

[nova-alex]

интересно, а если кнопок будет хотя-бы две (или больше)? как с ними разобраться?

[zetrix]

Button1.OnClick:=Some_Click_Procedure1;
Button2.OnClick:=Some_Click_Procedure2;
Button3.OnClick:=Some_Click_Procedure3;
Button4.OnClick:=Some_Click_Procedure4;

Лишь бы имена были разные , ну и конечно для каждой кнопки своя процедура.

[selenux]

Не проще ли установить один обработчик для всех кнопок, а различать их по хвостам.

Идентифицируешь кнопку Button.Tag := Уникальное_число;

а в обработчике

case (Sender as TButton).Tag of
...

end;

[RastMadestov]

А если кнопке присвоить имя типа
Button.Name:='MyButton1';

[Alar]

MyButton1.OnClick:=Some_Click_Proce dure1;

вообще, Some_Click_Procedure1 - это название тоже можно заменить на любое название существующей в программе функции.

[zetrix]

Button.Name:='MyButton1';

Я бы не советовал так делать в твоей программе, лучше изначално в инспекторе объектов всё задать.

[Gambler]

Только не тыкайте в меня пальцем, но я не въехал!!! Delphi я изучал по книжкам и поэтому знания у меня урывками. Растолкуйте по подробнее если можно.

[nova-alex]

Вот то, что сам попробовал и проверил - работает.

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure changetext(sender:Tobject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Button: TButton;
begin
Button:= Tbutton.Create(self);
Button.Parent := self;
Button.Left :=10;
Button.Top :=10;
Button.Caption := 'Новая кнопка';
Button.OnClick:=form1.changetext;
end;
procedure tform1.changetext(Sender: TObject);
begin
edit1.Text:='Новый текст';
end;
end.

Changetext - процедура для выполнения при нажатии созданной кнопки. При ее объявлении (Sender:Tobject) - обязательно, а то компилятор ругается.