Neues Fenster nach Aufruf eines MDIChilds

[handson]

Das Maximieren mache ich sowohl im Object-Manager (WindowsState) als auch während der Laufzeit:

Delphi-Quellcode:

procedure TFormBuchungen.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or WS_MAXIMIZE;
  Params.Style := Params.Style and not WS_SYSMENU;
end;

Das Extra-Fenster rufe ich jetzt unter OnActivate auf, bei den anderen Ereignisse hatte ich das auch schon versucht, leider erfolglos.

Delphi-Quellcode:

 
  
procedure TFormBuchungen.FormActivate(Sender: TObject);
begin
:
:
    FormBuchDatum := TFormBuchDatum.Create(self);
    Try
      FormBuchDatum.ShowModal;
      Buchungsdatum.Caption := DateToStr(FormBuchDatum.Buchdatum);
    Finally
      FormBuchDatum.Free;
    End;
:
:
End;