Создание дополнительной формы без перекрытия основной в приложениях на Delphi

Delphi , Программа и Интерфейс , Формы

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

Проблема

Разработчик столкнулся с проблемой, что при создании дополнительной формы в приложении на Delphi, она перекрывает основную форму. Это происходит по умолчанию, так как дополнительная форма является дочерней по отношению к основной и следует за ней в порядке зоны отображения (z-order).

Контекст

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

Решение

Чтобы решить эту проблему, необходимо изменить порядок владения окон в Windows. По умолчанию вспомогательные формы являются дочерними по отношению к основной форме, и следовательно, отображаются поверх неё. Но можно изменить это поведение, используя метод CreateParams вспомогательной формы для изменения родительского окна.

Шаг 1: Изменение родительского окна вспомогательной формы

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

procedure TPopupForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := 0;
end;

Шаг 2: Отображение вспомогательной формы

Для отображения вспомогательной формы можно использовать, например, обработчик события основной формы:

procedure TMainForm.ShowPopupForm(Sender: TObject);
begin
  with PopupForm1 do
  begin
    Left := ClientWidth - Width; // Позиционирование справа от основной формы
    Top := ClientHeight; // Позиционирование снизу основной формы
    Show;
  end;
end;

Шаг 3: Учет минимизации и восстановления окон

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

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

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

procedure TOverlappedPopupForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := Application.Handle;
end;

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

Используя методы Windows API и Delphi, можно настроить отображение вспомогательных форм таким образом, чтобы они не перекрывали основную форму и отображались рядом с ней. Это позволяет создать более удобный и интуитивно понятный интерфейс для пользователя.

Следуя этим шагам, разработчики могут создать дополнительные формы, которые будут отображаться "вдоль" основной формы, не перекрывая её, и обеспечивать корректное взаимодействие с основным приложением.

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

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

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

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

:: Главная :: Формы ::