Управление окнами в приложении с двумя процессами: Master и Slave на Delphi

Delphi , ОС и Железо , Windows

При разработке сложных приложений, особенно тех, которые используют несколько процессов, возникают интересные задачи по управлению окнами. В частности, рассмотрим ситуацию, когда у нас есть два проекта, выполняющихся как отдельные процессы, но принадлежащие к одному приложению: Master (содержит TMasterMainForm и TMasterModalForm) и Slave (содержит TSlaveForm).

Описание проблемы

Типичный сценарий использования приложения выглядит следующим образом:

1. Запускается Master, отображается TMasterMainForm.
2. Пользователь может запустить Slave, кликнув по кнопке в TMasterMainForm.
3. Master запускает процесс Slave.
4. Slave отображает TSlaveForm.
5. Master отправляет TForm.Handle TMasterMainForm в Slave через межпроцессное взаимодействие (IPC).

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

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

Решение проблемы

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

Пример кода

// Slave отправляет сообщение Master с указанием активировать окно
procedure TSlaveForm.CloseWindow(Sender: TObject);
begin
  if Assigned(OMasterMainForm) then
    OMasterMainForm.ActivateWindow(Self.Handle);
  inherited;
end;

procedure TMasterMainForm.ActivateWindow(const AHandle: THandle);
begin
  if Assigned(TOwnerModalForm) and TOwnerModalForm.Showing then
    TOwnerModalForm.BringToFront
  else
    Application.BringToFront(Self);
end;

Учет ограничений на перехват фокуса

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

procedure TSlaveForm.CloseWindow(Sender: TObject);
begin
  if AllowSetForegroundWindow(OMasterProcessID) then
    // Отправка сообщения Master для активации окна
  inherited;
end;

Заключение

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

Эта статья представляет собой краткое руководство по управлению окнами в приложениях, использующих несколько процессов, с акцентом на использование Object Pascal (Delphi). Приведенные примеры кода демонстрируют, как можно решить описанную проблему, следуя лучшим практикам разработки.

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

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

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

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

:: Главная :: Windows ::