Как центрировать форму на втором мониторе?

Я показываю форму на втором мониторе (используя эту ссылку), и мне нужно, чтобы она отображалась по центру.

Вот моя последняя попытка, но безуспешно. Как я могу достичь этого?

    MonitorForm.Left := (mInfo.rcWork.Width - MonitorForm.Width)  div 2;
    MonitorForm.Top := (mInfo.rcWork.Height - MonitorForm.Height) div 2;

delphi delphi-10.3-rio vcl multiple-monitors
person Davison    schedule 08.07.2020    source источник

Ответы (1)


arrow_upward
3
arrow_downward

Вам необходимо учитывать положение монитора (слева/сверху) в общем размере рабочего стола:

MonitorForm.Left := mInfo.rcWork.Left + (mInfo.rcWork.Width - MonitorForm.Width) div 2;
MonitorForm.Top := mInfo.rcWork.Top + (mInfo.rcWork.Height - MonitorForm.Height) div 2;
person HeartWare    schedule 08.07.2020