Hi,
du kannst nicht
Rondo[1].OnClick := Rondo[1].OnChoose;
zuweisen. Wenn du ein eigenes Ereigniss erstellen willst, so mußt du eine Varible erstellen:
Delphi-Quellcode:
meineKlasse = ...
private
FMeinEreigniss =TNotifityEvent;
public
procedure tueirgendwas;
published
onChoose : TNotifityEvent read FMeinEreigniss write FMeinEreigniss;
end;
[...]
procedure meineKlasse.tueirgendwas;
begin
[...]
//hier wird das Ereigniss und der damit verbundene Code aufgerufen
//natürlich nur, wenn damit auch eine Prozedur des Typs TNotifityEvent verbunden ist.
if Assigned(FMeinEreigniss) then FMeinEreigniss(self);
[...]
end;
Im Programm kannst du dann beim Benutzen der Klasse eine Prozedur dem onChoose- Ereigniss zuweisen.
Wenn du das onClick Ereigniss überschreiben willst, so mußt du entweder die vorhergehende Klasse überschreiben (Wenn das Möglich ist) oder die Windowsmessage abfangen.