Delphi - 左のモニタで開いているフォーム

Question

アプリケーションが常に左のモニタから開始されるようにしたい（1つ以上の接続がある場合）。

どうすればいいですか？どのように左のモニタ番号を検出するのですか？

ありがとうございます！

Answer 1

私たちは、このコードを使用：

if Screen.MonitorCount > 1 then 
begin 
    MonList := TList<TMonitor>.Create; 

    for I := 0 to Screen.MonitorCount - 1 do 
    MonList.Add(Screen.Monitors[I]); 

    // sort by screen.monitor.left coordinate 
    MonList.Sort(TComparer<TMonitor>.Construct(
    function(const L, R: TMonitor): Integer 
    begin 
     Result := L.Left - R.Left; 
    end)); 

    _MonitorNum := TMonitor(MonList[0]).MonitorNum; 

    // free the list 
    MonList.Destroy; 
end; 

その後_MonitorNumは一番左のモニターの数を保持しています。