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:

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?

[mkinzler]

Schau dir mal TForm.Position an

[BUG]

Evtl. hilft es vor Show(Modal) NewForm.Position auf poScreenCenter zu stellen?

[Shubit]

danke euch beiden, die Eigenschaft Position kannte ich nicht, aber die behebt natürlich das Problem