dynamisches Objekt - Eventauswertung!?

[Vitus]

Hallo mal wieder,

ich habe eine Klasse geschrieben, die vom TPanel abstammt. Bei Klick auf einem Button des Hauptformulars, soll nun eine neue Instanz dieser Klasse erzeugt, und die Komponente in einer Scrollbox dargestellt werden. Zur Verwaltung werden die einzelnen Instanzen in einem Array verwaltet.

Das klappt soweit auch wunderbar. Aaaaaaaaber der Benutzer soll ja auch mit diesen Komponenten interagieren können.

Das TPanel hat ja schon ein OnClick Event implementiert, aber da die Objekte dynamisch erzeugt werden, tauchen die auch nicht im Objektinspektor auf. Wie komm ich also an die onClick Events ran???

Ich finde irgendwie keine Lösung für dieses Problem :roll:

danke im Vorraus

Vitus

[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;

[Vitus]

*jubel*
danke! Es funktioniert :-D