Ereignisse in vererbten Klassen

[mkinzler]

Du willst den XShapes automatsich Eventsmethoden vererben?

Delphi-Quellcode:

procedure TXShape.Klick( Sender: TObject);
begin
...
end;

Constructor TXShape.Create;
begin
 ...
  self.onClick = self.Klick;
...
end;