Eigener Klasse OnClickEvent zuweisen

[Andreas L.]

Hi,
ich habe jetzt auf meinen Panels welche in der ScrollBox erzeugt werden (siehe http://www.delphipraxis.net/internal...t.php?t=109550 ) Labels erstellt. Diesen möchte ich ein onClick-Event geben. Jedoch muss der Entwickler, welcher die Klasse benutzt dort eigenen Code hinterlegen können. Also dachte ich mir, dass ich ein property erstelle nach diesem Schema:

In der Anwendung welche die Klasse benutzt:

Delphi-Quellcode:

procedure SomeComponentOnClick(Sender: TObject);
begin

 ShowMessage('Du hast mich geklickt!');

end;

//beim initalisieren der Klasse bzw. erstellen der Items
MeineKlasse.LabelOnclick := SomeComponentOnClick;

Nicht jedes Label auf den Panels soll ein eigenes onClick erhalten, sondern alle das selbe.

Doch wie realisiere ich das?

Ich habe in die DelphiHilfe geschaut und mit den Artikel bei "property" folgendes gebaut, will aber nicht klappen:

property LabelonClick: TNotifyEvent read TNotifyEvent write TNotifyEvent; Doch ich glaube das ist der falsche Ansatz. Wie soll ich das ganze umsetzen?