dynamisches Objekt - Eventauswertung!?

[Christian Seehase]

Moin Vitus,

bei dynamisch erzeugten Instanzen kannst Du eine Ereignistroutine so zuweisen, wie jede andere Eigenschaft auch.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  //...
    procedure MyPanelClick(Sender: TObject);
  //...
  end;

//...

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TMyPanel.Create(self) do begin
    Name    := 'MyPanel';
    Parent  := self;
    OnClick := MyPanelClick;
  end;
end;

procedure TForm1.MyPanelClick(Sender: TObject);
begin
  // Was auch immer passieren soll
end;