Обработчик на динамически созданный компонент

[lexo]

Доброго всем дня! И с первым днём лета. Вопрос вот в чём.
Создаю вот так форму и компоненты (динамически) при нажатии на кнопку на главной форме:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
Var
  frmUser: TForm;
  btnUser: TButton;
  edUser:TEdit;
  memUser:TMemo;
begin
 frmUser := TForm.Create(Self);
 frmUser.Caption := 'Message';
 frmUser.Left := 290;
 frmUser.Top := 196;
 frmUser.Width := 368;
 frmUser.Height := 437;
 btnUser := TButton.Create(frmUser);
 btnUser.Left := 296;
 btnUser.Top := 344;
 btnUser.Width := 25;
 btnUser.Height := 25;
 btnUser.Caption := '>';
 btnUser.Parent := frmUser;

 edUser := TEdit.Create(frmUser);
 edUser.Left := 32;
 edUser.Top := 344;
 edUser.Width := 257;
 edUser.Height := 25;
 edUser.Text := '';
 edUser.Parent := frmUser;

 memUser:=TMemo.Create(frmUser);
 memUser.Left := 32;
 memUser.Top := 32;
 memUser.Width := 289;
 memUser.Height := 297;
 memUser.Parent := frmUser;
 memUser.Lines.Clear;

 frmUser.Show;
end;

end.

Мне нужно создать обработчик события нажатия кнопки, которая была создана динамически на динамически созданной форме. Помогите: как это сделать? Заранее благодарю!

[Человек_Борща]

Объявляешь прототип метода OnClick, и там пишешь нужный код.
Каждой динам. кнопке ставишь обработчик:
ByButton.OnClick:=@MyBtnClick;

[lexo]

Сообщение от Человек_Борща

Объявляешь прототип метода OnClick, и там пишешь нужный код.
Каждой динам. кнопке ставишь обработчик:
ByButton.OnClick:=@MyBtnClick;

Исправьте пожалуйста мой код таким образом чтобы потом на динамически созданной форме при нажатии на кнопку в edit выводился текст какой нибудь. Кнопка и edit созданы динамически на динамической форме.

Код кнопки должен быть примерно такой :

procedure Click(Sender:TObject);
begin
frmUser.edUser:='блаблабла';
end;

Просто с ходу не очень понял.

[kventin_zhuk]

procedure TForm1.Button1Click(Sender: TObject);
var
  btn: TButton;
begin
  btn := TButton.Create(Form1);

  btn.Width := 40;
  btn.Height := 20;

  btn.Left := random(Form1.Width);
  btn.Top := random(Form1.Height);
  btn.Parent := Form1;
  btn.OnClick := Button2Click;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Form1.Edit1.Text := IntToStr(random(99999));
end;

по нажатию на button1 - на форме будет создаваться другая кнопка, которая будет выполнять обработчик button2

[lexo]

Сообщение от kventin_zhuk

procedure TForm1.Button1Click(Sender: TObject);
var
  btn: TButton;
begin
  btn := TButton.Create(Form1);

  btn.Width := 40;
  btn.Height := 20;

  btn.Left := random(Form1.Width);
  btn.Top := random(Form1.Height);
  btn.Parent := Form1;
  btn.OnClick := Button2Click;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Form1.Edit1.Text := IntToStr(random(99999));
end;

по нажатию на button1 - на форме будет создаваться другая кнопка, которая будет выполнять обработчик button2

у меня создаётся при нажатии на главной форме ДРУГАЯ форма, с кнопкой и edit-ом. И вот при нажатии на кнопку на новой форме , в edit выводится текст. Код должен быть в юните главной формы !

[lexo]

procedure MyButtonClick(Self : TComponent; Sender : TButton);
begin
(Self.FindComponent('edUser') as TEdit).Text := 'hello';
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
frmUser: TForm;
btnUser: TButton;
edUser:TEdit;
memUser:TMemo;
Method : TMethod;
begin
frmUser := TForm.Create(Self);
frmUser.Caption := 'Message';
frmUser.Left := 290;
frmUser.Top := 196;
frmUser.Width := 368;
frmUser.Height := 437;
btnUser := TButton.Create(frmUser);
btnUser.Left := 296;
btnUser.Top := 344;
btnUser.Width := 25;
btnUser.Height := 25;
btnUser.Caption := '>';
btnUser.Parent := frmUser;

Method.Code := @MyButtonClick;
method.Data := frmUser; // Self будет твоя форма
btnUser.OnClick := TNotifyEvent (Method);

edUser := TEdit.Create(frmUser);
edUser.Name := 'edUser'; // Вот имя - обязательно. По нему будет обращение к компоненту
edUser.Left := 32;
edUser.Top := 344;
edUser.Width := 257;
edUser.Height := 25;
edUser.Text := '';
edUser.Parent := frmUser;

memUser:=TMemo.Create(frmUser);
memUser.Left := 32;
memUser.Top := 32;
memUser.Width := 289;
memUser.Height := 297;
memUser.Parent := frmUser;
memUser.Lines.Clear;

frmUser.Show;
end;

вот решение. всем спасибо. тема закрыта