|
(Moderator)
Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
Delphi 11 Alexandria
|
Re: Ereignisse in vererbten Klassen
26. Sep 2006, 21:46
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;
Markus Kinzler
|