Hi,
wenn ich ein zusätzliches Formular erstelle, hät ich es gerne in der Bildschirmmitte. Daher habe ich meinem zusätzlich Formular folgende Procedure verpasst:
Delphi-Quellcode:
procedure TFm_Question.SetToScreenMiddle();
begin
Left := (Screen.Monitors[0].Width - Width) div 2;
Top := (Screen.Monitors[0].Height - Height) div 2;
end;
Wenn ich jetzt aber folgendes mache:
Delphi-Quellcode:
NewForm := TFm_Question.CreateNew(self);
NewForm.SetToScreenMiddle();
NewForm.ShowModal;
erscheint das Formular nicht in der Bildschrimmitte. Scheinbar werden die in SetToScreenMiddle festgelegten Werte für Left und Top nochmal überschrieben. Bleibt ja eigentlich nur ShowModal. Lässt sich das verhindern?