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 держит число левого большинства монитора.