Как растянуть форму на несколько мониторов?

Question

[TotTip]

Здравствуйте!
Как растянуть форму на несколько мониторов?
Сейчас на весь экран растягиваю так:

Form2.Width := Screen.DesktopWidth;
Form2.Height := Screen.DesktopHeight;

Но форма растягивается только на активном мониторе.

Answer 1

[Sumor]

Попробуйте ещё установить Left и Top

Form2.Left := Screen.DesktopLeft;
Form2.Top := Screen.DesktopTop;

Answer 2

[acwartz]

В модуле Vcl.Forms есть класс TScreen, через который можно перечислить мониторы и получить их свойства.
Класс создавать не надо, он уже создан в глобальной переменной Screen
Примерно так:

i, TotalWidth , TotalHeight : Integer;
for i = 0 to Screen.MonitorCount -1 do
begin
  TotalWidth := TotalWidth + Screen.Monitors[i].Width;
  TotalHeight := TotalHeight + Screen.Monitors[i].Heigth;
end;
 Form.Width := TotalWidth;
 Form.Heigth := TotalHeight ;

код на коленке писал.

Answer 3

[Hemul GM]

Проблема в другом. Screen.DesktopWidth указывает полный размер всего рабочего стола (это сумма всех мониторов). И я проверил, окно растягивается на оба монитора. Посмотри настройки формы: WindowState