Как предотвратить появление окон за пределами экрана в Delphi с использованием TurboPower Orpheus

Delphi , ОС и Железо , Монитор и Экран

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

Проблема и её контекст

Разработчики, использующие TurboPower Orpheus для сохранения положения и размера форм, сталкиваются с проблемой, когда окна приложения появляются за пределами экрана. Это может произойти, например, при использовании нескольких мониторов или изменении их конфигурации. Сохранение информации о размере и расположении окон в INI файле не решает проблему, если мониторы изменяют свою конфигурацию, например, при отключении одного из мониторов или изменении разрешения экрана.

Подтвержденный ответ

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

Пример алгоритма

1. Проверить, не выходит ли окно за пределы рабочей области любого из подключенных мониторов.
2. Если окно пытается занять позицию вне рабочей области, скорректировать его положение так, чтобы оно было полностью внутри экрана.

var
  FormRect: TRect;
begin
  FormRect := Form1.ClientRect;
  if (Form1.Left + FormRect.Width) > Screen.Monitors[0].WorkAreaRect.Width then
    Form1.Left := Screen.Monitors[0].WorkAreaRect.Right - FormRect.Width;
  if (Form1.Top + FormRect.Height) > Screen.Monitors[0].WorkAreaRect.Height then
    Form1.Top := Screen.Monitors[0].WorkAreaRect.Bottom - FormRect.Height;
end;

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

• Использование свойства DefaultMonitor для ассоциации формы с определенным монитором.
• Вызов метода MakeFullyVisible для обеспечения полной видимости формы на экране.

Примеры использования кода

// Адаптация положения формы для одного монитора
if (Form1.Left + Form1.Width) > Screen.Monitors[0].WorkAreaRect.Right then
  Form1.Left := Screen.Monitors[0].WorkAreaRect.Right - Form1.Width;

// Применение метода MakeFullyVisible для адаптации положения окна
Form1.MakeFullyVisible;

Заключение

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

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

Проблема связана с разработкой интерфейсов, где использование компонента TurboPower Orpheus для сохранения положения окон может привести к тому, что окна приложения появляются за пределами экрана, особенно при изменении конфигурации мониторов.

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

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

:: Главная :: Монитор и Экран ::