Formular in Bildschrimmitte

**Shubit**

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:

markieren

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:

markieren

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?

Formular in Bildschrimmitte

Formular in Bildschrimmitte

Forumregeln