Задать вопрос
@TotTip

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

Здравствуйте!
Как растянуть форму на несколько мониторов?
Сейчас на весь экран растягиваю так:
Form2.Width := Screen.DesktopWidth;
Form2.Height := Screen.DesktopHeight;

Но форма растягивается только на активном мониторе.
  • Вопрос задан
  • 134 просмотра
Подписаться 1 Простой Комментировать
Решения вопроса 1
@Sumor
Попробуйте ещё установить Left и Top
Form2.Left := Screen.DesktopLeft;
Form2.Top := Screen.DesktopTop;
Ответ написан
Комментировать
Пригласить эксперта
Ответы на вопрос 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 ;

код на коленке писал.
Ответ написан
Комментировать
HemulGM
@HemulGM Куратор тега Delphi
Delphi Developer, сис. админ
Проблема в другом. Screen.DesktopWidth указывает полный размер всего рабочего стола (это сумма всех мониторов). И я проверил, окно растягивается на оба монитора. Посмотри настройки формы: WindowState
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Похожие вопросы