3 Monitore. Delphi soll aber nur auf einem bestimmten ausgeführt werden

[Nine9]

Guten Tag sehr geehrte Community wie immer bin ich auf der Suche nach ein paar hilfreichen Antworten.

Bisher habe ich meine Programme immer mit Form.Borderstyle := BsNone;
und z.b left := screen.desktopLeft; ausgeführt. Mit 2 Bildschirmen kein Problem.
Nun habe ich 3 und ich möchte aber dass das Programm beim ausführen den Monitor nimmt auf dem ich Delphi offen habe und Debugge.
Leider kommt er mir immer auf den ersten ganz links was auch mit screen.desktopleft sich logisch erklären lässt.
Aber wie kann ich ihm anweisen das er auf diesen Monitor sich konzentrieren soll wo ich delphi habe und Ihn darauf ausführe

Über jede Idee wäre ich sehr Dankbar.

Freundliche Grüße

[Nine9]

Habs herausgefunden ^^ mit screen.Monitors[0].left;

[stahli]

Eine Option kann auch sein, die Position beim Schließen in einer Ini zu speichern und beim nächsten Start wieder zu laden. So kannst Du jederzeit leicht eine neue Position festlegen.

Funktioniert für mich super.

Delphi-Quellcode:

  procedure TFormX.LoadIni;
  var
    IniFile: TIniFile;
  begin
    try
      IniFile     := TIniFile.Create(ExtractFilePath(ParamStr(0)) + IniFileName);
      WindowState := wsNormal;
      Position    := poDesigned;
      Top         := IniFile.ReadInteger(IniFileName, 'Top', Top);
      Left        := IniFile.ReadInteger(IniFileName, 'Left', Left);
      Width       := IniFile.ReadInteger(IniFileName, 'Width', Width);
      Height      := IniFile.ReadInteger(IniFileName, 'Height', Height);
    finally
      FreeAndNil(IniFile);
    end;
  end;

  procedure TFormX.SaveIni;
  var
    IniFile: TIniFile;
  begin
    try
      IniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + IniFileName);
      IniFile.WriteInteger(IniFileName, 'Top', Top);
      IniFile.WriteInteger(IniFileName, 'Left', Left);
      IniFile.WriteInteger(IniFileName, 'Width', Width);
      IniFile.WriteInteger(IniFileName, 'Height', Height);
    finally
      FreeAndNil(IniFile);
    end;
  end;

  procedure TFormX.FormCreate(Sender: TObject);
  begin
    LoadIni;
  end;
...

  procedure TFormX.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
    SaveIni;
  end;

[Aviator]

Bitte das TIniFile.Create() vor den try ... finally Block setzen. Ansonsten könnte es passieren, dass der Aufruf von Create() nicht funktioniert und dein finally Abschnitt ebenfalls aufgrund einer ungültigen Instanz bzw. eines ungültigen Zeigers crashed.