OnClick bei Selfmade Class

[Spezi1980]

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.