OnCreate wird doppelt aufgerufen????

[Marco Steinebach]

Hallo zusammen,
ich hab was ganz seltsames hier.
Ausgangssituation:
Ein form erzeugt und zeigt, mittels ShowModal, ein zweites Formular an.
Das OnCreate des modalen Forms ist definiert und, jetzt kommen wir zu dem seltsamen, es wird zweimal aufgerufen, und mir ist absolut nicht klar, wieso, weshalb, warum???!

Der aufrufende code:

Delphi-Quellcode:

  with TForm2.Create (self) do
  try
    ShowModal;
  finally
    free;
  end;

das OnCreate sieht so aus:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
begin
  BorderIcons := [];
end;

und noch das ShowModal:

Delphi-Quellcode:

function TForm2.ShowModal: integer;
begin
  result := inherited ShowModal;
end;

Allso, eigentlich, alles ganz klassisch.

Der Debugger behauptet, lasse ich mir den Stack anzeigen, dass ShowModal das OnCreate aufruft?
Hattet ihr so was schon mal?
Völlig ratlose Grüße
Marco

[Marco Steinebach]

Hallo,
hat sich erledigt. Wie auch immer das ging, hat sich das OnCreate auch ins OnActivate eingeshlichen. Dann wird's natürlich doppelt aufgerufen. ;-)