В приложении Delphi 10.4.2 Win32 VCL, работающем в Windows 10, в настройке с двумя мониторами, когда я устанавливаю свою основную форму (или любую другую вторичную форму) для запуска в развернутом виде, устанавливая WindowState := wsMaximized, тогда форма разворачивается только на основном мониторе .
Как я могу развернуть форму на весь рабочий стол, чтобы размер формы включал ОБА МОНИТОРА? Есть ли для этого встроенный метод класса TForm?
В общем, эта проблема не так проста, как может показаться. Я полагаю, вы представляете себе рабочий стол следующим образом:
В этом случае я предполагаю, что вы хотите, чтобы окно было размещено следующим образом:
Однако что, если у пользователя такой макет:
Вы хотите
(все окно видно, но часть экрана не используется) или
(нет неиспользуемого пространства, но некоторые части окна не видны)?
Если вы хотите использовать все пространство виртуального рабочего стола — последний случай — это легко сделать:
BoundsRect := Screen.DesktopRect;
Это сделает ожидаемую вещь в простой настройке, и не будет неиспользуемого пространства, но некоторые части окна могут быть вообще не видны.
Также имейте в виду, что Windows не нравится такое поведение окон, поэтому пользователь может не получить приятного опыта использования приложения.
В общем, не делайте этого.
Обратите внимание, что даже установка с двумя мониторами, в которой оба монитора являются альбомными, может быть нетривиальной:
Геометрия может быть нетривиальной, даже если оба монитора имеют одинаковый размер:
Self.BoundsRect := Screen.DesktopRect; в обработчике формы OnCreate, форма по-прежнему развернута на основном мониторе.
- person user1580348; 27.07.2021
WindowState на wsMaximized. Максимизированное окно будет использовать только один экран. (В Windows развернутое примерно означает, что используется (один) полный экран, поэтому, если вы хотите использовать два или три экрана, окно по определению не может быть развернуто.)
- person Andreas Rejbrand; 27.07.2021
WindowState = wsNormal? Используете ли вы масштабирование DPI (например, один монитор на 100%, а другой на 120%)? Это может быть проблемой. Тогда это может зависеть от осведомленности вашего приложения о DPI.
- person Andreas Rejbrand; 28.07.2021
WindowState = wsNormal.
- person user1580348; 28.07.2021
Screen.Monitors (используя for i := 0 to Screen.MonitorCount - 1), чтобы получить границы для каждого монитора.
- person Andreas Rejbrand; 28.07.2021
Согласно MSDN:
Позиционирование объектов на нескольких мониторах
Окно или меню, которые находятся более чем на одном мониторе, вызывают визуальное нарушение для зрителя. Чтобы свести к минимуму эту проблему, система отображает меню и новые развернутые окна на одном мониторе.
Таким образом, если вы хотите, чтобы окно TForm растянулось на весь рабочий стол, использование WindowState=wsMaximize не подходит, так как оно будет работать только на один монитор, на котором чаще всего отображается форма.
Чтобы сделать то, что вы просите, вам нужно будет получить прямоугольник Виртуальный экран из GetSystemMetrics() (или Vcl.Forms.TScreen), а затем соответственно установите Left/Top/Width/Height формы, например:
if Screen.MonitorCount > 1 then
begin
Form.WindowState := wsNormal;
Form.Left := Screen.DesktopLeft;
Form.Top := Screen.DesktopTop;
Form.Width := Screen.DesktopWidth;
Form.Height := Screen.DesktopHeight;
// or:
Form.SetBounds(Screen.DesktopLeft, Screen.DesktopTop, Screen.DesktopWidth, Screen.DesktopHeight);
// or:
Form.BoundsRect := Screen.DesktopRect;
end else
begin
Form.WindowState := wsMaximized;
end;
Self.BoundsRect := Screen.DesktopRect?
- person Andreas Rejbrand; 27.07.2021
Это нестандартное поведение для приложения Windows. Также обратите внимание, что, поскольку на рабочем столе может быть несколько мониторов, которые не нужно выравнивать, рабочий стол может не быть прямоугольником, а это означает, что ограничивающий прямоугольник рабочего стола может содержать части, которые не видны.
Если вы хотите сделать это, вы можете использовать функцию Windows GetDesktopWindow, чтобы получить окно рабочего стола, затем получить его размер, а затем установить размер формы для этого.
procedure TMyForm.GoLarge();
var
rctDesktop: TRect;
hDT: HWND;
begin
hDT:=GetDesktopWindow();
if(hDT<>0) then
begin
GetWindowRect(hDT, rctDesktop);
Self.SetBounds(rctDesktop.Left, rctDesktop.Top, rctDesktop.Width, rctDesktop.Height);
end;
end;
Это не учитывает панель задач или что-либо еще, что использует часть рабочего пространства.
Self.BoundsRect := Screen.DesktopRect?
- person Andreas Rejbrand; 27.07.2021
WindowState в wsMaximized?
- person Andreas Rejbrand; 27.07.2021
