Schau dir doch einfach mal die Quelltexte der
VCL an. TForm findest du z.B. in der
Unit "Forms".
Bei TCustomForm sieht das, was du willst so aus:
Delphi-Quellcode:
TCustomForm = class(TScrollingWinControl)
private
FOnCreate: TNotifyEvent;
...
protected
procedure DoCreate; virtual;
property OnCreate: TNotifyEvent read FOnCreate write FOnCreate stored IsForm;
...
procedure TCustomForm.DoCreate;
begin
if Assigned(FOnCreate) then
try
FOnCreate(Self);
except
if not HandleCreateException then
raise;
end;
if fsVisible in FFormState then Visible := True;
end;
In TForm (abgeleitet von TCustomForm) wird dann aus dem OnCreate ein puplished property gemacht.
Tip zum Finden der Quelltexte:
In deinem Quelltext mit der Maus auf den gewünschten Typen klicken z.B. TForm. Das Kontextmenü mit der rechten Maustaste aufrufen und den obersten Punkt "Deklaration finden" auswählen.