Ограничение экрана в Delphi: как исключить панель задач для корректного отображения окон

Delphi , Рабочий стол , TaskBar

Как получить доступные координаты экрана в Delphi

При разработке программ на Delphi, особенно тех, которые работают с несколькими мониторами или изменяют своё положение на экране, важно учитывать ограничения рабочего пространства. Вопрос о том, как получить доступные координаты экрана, исключая панели задач и другие системные элементы, является актуальным для многих разработчиков.

Проблема

Разработчики часто сталкиваются с необходимостью обеспечить, чтобы окно приложения полностью помещалось в пределах рабочего пространства экрана. Это особенно важно, если приложение сохраняет своё положение и размеры при закрытии и восстанавливает их при следующем открытии, даже если размеры экрана изменились.

Решение

Использование свойств Screen.DesktopHeight и Screen.DesktopWidth позволяет получить размеры "виртуального" рабочего стола, что работает для одного или нескольких мониторов. Однако, эти свойства не учитывают такие элементы, как панель задач, которая может быть расположена внизу экрана.

Для решения этой проблемы можно использовать свойства Screen.WorkArea*, которые предоставляют информацию о рабочей области экрана, исключая системные панели и другие элементы. Например:

var
  WorkAreaRect: TRect;
begin
  WorkAreaRect := Screen.WorkAreaRect;
  // Используем WorkAreaRect для позиционирования окна приложения
end;

Также полезно использовать свойства Screen.Monitors[I].WorkAreaRect, чтобы определить рабочую область для каждого монитора отдельно, особенно если приложение работает на нескольких мониторах одновременно.

Подход с использованием массива мониторов

Для более сложных сценариев, когда приложение работает на нескольких мониторах с разной высотой, можно использовать Screen.MonitorCount и массив Screen.Monitors для определения монитора, на котором находится большая часть окна, и затем найти подходящий прямоугольник на этом экране.

var
  BoundsRect: TRect;
  MainForm: TForm;
begin
  for var Index := 0 to Screen.MonitorCount - 1 do
  begin
    // Предполагаем, что окно приложения может быть размещено на любом из мониторов
    // и выбираем монитор с наибольшим количеством пересечения с окном
    if IntersectRect(BoundsRect, MainForm.Bounds, Screen.Monitors[Index].WorkAreaRect) then
      BoundsRect := Screen.Monitors[Index].WorkAreaRect;
  end;
  // Устанавливаем размеры и положение окна в соответствии с найденным рабочим пространством
end;

Альтернативные методы

В некоторых случаях может быть полезно использовать метод TCustomForm.MakeFullyVisible, который проверяет, помещается ли форма полностью на указанный монитор, и, если нет, перемещает её так, чтобы она поместилась. Однако, этот метод может быть не идеален, так как он также изменяет положение формы, если она частично затрагивает два монитора, что может быть нежелательно.

Заключение

Для корректного отображения окон приложения на экране, разработчикам необходимо учитывать рабочую область, исключая системные панели и другие элементы интерфейса. Использование свойств Screen.WorkArea*, Screen.Monitors[I].WorkAreaRect и, при необходимости, методов класса TCustomForm позволяет достичь этой цели.

Создано по материалам из источника по ссылке.

Разработчики на Delphi могут использовать свойства `Screen.WorkAreaRect` и `Screen.Monitors[I].WorkAreaRect` для корректного позиционирования окон приложения, исключая системные панели и обеспечивая их полное размещение в рабочей об

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TaskBar ::