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;