Probleme mit OnCreate Event

[guidok]

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.