[MDI] Anderes Fenster gleich beim Start öffnen

[Sidorion]

Delphi-Quellcode:

TMyForm=Class(TForm)
 private
  ...
  FFirstShow: Boolean;
 protected 
  ...
  Procedure DoShow; Override;
 public
  ...
  Constructor Create(AOwner: TComponent); Override;
 end;

...
Implementation
...
Constructor TMyForm.Create(AOwner: TComponent);
Begin
  Inherited;
  FFirstShow:=True;
End;
...
Procedure TmyForm.DoShow;
Begin
  Inherited;
  If FFirstShow
  Then begin
    Neutral:=TNeutral.Create(Self);
    Neutral.Show;
    FFirstShow:=False;
  End;
End;
...

Ich hoffe, das war jetzt deutlich.