Управление фокусом окон в пользовательском интерфейсе на Delphi: показ всплывающих окон без потери актива

Delphi , Синтаксис , Справочник по API-функциям

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

Проблема

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

1. Окно A не теряло активацию при появлении всплывающего окна B.
2. При фокусе на окне B можно было одним кликом раскрыть выпадающий список на окне A.

Решение

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

SetWindowPos(Form2.Handle, HWND_TOP, 0, 0, 0, 0,
  SWP_SHOWWINDOW or SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOMOVE);

Также, для предотвращения получения фокуса всплывающим окном, можно использовать расширенный стиль окна WS_EX_NOACTIVATE или обработать сообщение WM_MOUSEACTIVATE, возвращая MA_NOACTIVATE.

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

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

Подтвержденное решение

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

type
  TForm2 = class(TForm)
    [..]
  private
    FOwner: TForm;
    procedure WmActivate(var Msg: TWMActivate); message WM_ACTIVATE;
  public
    constructor Create(AOwner: TComponent); override;
    // ...
  end;

constructor TForm2.Create(AOwner: TComponent);
begin
  if not (AOwner is TForm) then
    raise Exception.Create('Owner should be TForm');
  FOwner := TForm(AOwner);
  inherited;
end;

procedure TForm2.WmActivate(var Msg: TWMActivate);
begin
  SendMessage(FOwner.Handle, WM_NCACTIVATE, Ord(Msg.Active <> WA_INACTIVE), 0);
  inherited;
  if Msg.Active = WA_INACTIVE then
    Release;
end;

При создании всплывающего окна, ему передается ссылка на основное окно:

procedure TForm1.Button1Click(Sender: TObject);
var
  PopForm: TForm2;
begin
  PopForm := TForm2.Create(Self);
  // ...
end;

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

Заключение

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

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

При разработке интерфейсов на Delphi рассматривается проблема управления фокусом окон при отображении всплывающих окон без потери активации основного окна.

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

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

:: Главная :: Справочник по API-функциям ::