@Neutral General:
Zitat von
Neutral General:
Delphi-Quellcode:
TKlasse = class
private
FOnCreate: TNotifyEvent;
public
property OnCreate: TNotifyEvent read FOnCreate write FOnCreate;
constructor Create;
end;
constructor TKlasse.Create;
begin
inherited Create;
if Assigned(FOnCreate) then
FOnCreate(Self);
end;
Bitte denk nochmal tief darüber nach, warum dieser Vorschlag niemals funktioniert...