Z-Order-Problem beim Fokuswechsel zwischen Haupt- und Unterformular

[baumina]

Statt Formcreate lieber

Delphi-Quellcode:

procedure TMainForm.FormActivate(Sender: TObject);
begin
  If not Assigned(FMySubForm) then
  begin
    FMySubForm := TSubForm.Create(self);
  end;
end;

[TiGü]

Zitat von baumina:

Statt Formcreate lieber

Delphi-Quellcode:

procedure TMainForm.FormActivate(Sender: TObject);
begin
  If not Assigned(FMySubForm) then
  begin
    FMySubForm := TSubForm.Create(self);
  end;
end;

Muuuh! Das geht!!!
Wie, warum und wieso?
Was passiert da im Hintergrund (ja, es ist zu warm um in der VCL zu debuggen).

Könnte ich irgendwelche Nachteile haben, weil ich die Unterformulare erst im FormActivate erzeuge?
Hintergrundinformation: Der Nutzer muss immer irgendetwas tun (Klicken oder Tastenkombination), um die Unterformular zu öffnen. Also das Hauptformular ist schon da.

[baumina]

Also so ganz genau weiß ich nicht wie das ist, aber ich weiß dass das damit zusammenhängt, dass das FormCreate durchlaufen wird bevor Application.run abgearbeitet wird. Das FormActivate dagegen nach dem Befehl Application.run kommt.

Nachteile sehe ich das im FormActivate zu machen keine.

[DeddyH]

Dann könnte man aber auch "lazy initialization as usual" umsetzen, die Property kann ja ruhig privat sein.

Delphi-Quellcode:

type
  TMainForm = class(TForm)
    btnOpenSubform: TButton;
    procedure btnOpenSubformClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FMySubForm : SubFormUnit.TSubForm;
    function GetMySubForm: SubFormUnit.TSubForm;
    property MySubForm: SubFormUnit.TSubForm read GetMySubForm; 
  public
  end;

...

function TMainForm.GetMySubForm: SubFormUnit.TSubForm;
begin
  if not Assigned(FMySubForm) then
    FMySubForm := SubFormUnit.TSubForm.Create(self);
  Result := FMySubForm;
end;

procedure TMainForm.btnOpenSubformClick(Sender: TObject);
begin
  MySubForm.Show; //die Property ansprechen, nicht das private Feld
end;