Решение проблемы с сохранением порядка модальных форм в пользовательской функции сообщения диалога Delphi

Delphi , Программа и Интерфейс , Модальные формы

Введение

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

Проблема с порядком модальных форм

Стандартные диалоговые функции в Delphi не учитывают текущий порядок модальных форм, что может привести к неправильному отображению диалогов:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Вызываем модальную форму
  Form2.ShowModal;

  // Проблема: это диалоговое окно может появиться ПОД Form2
  MessageDlg('Важное сообщение', mtInformation, [mbOK], 0);
end;

Основное решение

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

function CustomMessageDlg(const Msg: string; DlgType: TMsgDlgType; 
  Buttons: TMsgDlgButtons; HelpCtx: Longint; ParentForm: TCustomForm = nil): Integer;
var
  Dlg: TForm;
begin
  if ParentForm = nil then
    ParentForm := Screen.ActiveCustomForm;

  Dlg := CreateMessageDialog(Msg, DlgType, Buttons);
  try
    Dlg.HelpContext := HelpCtx;
    Dlg.PopupParent := ParentForm;
    Dlg.PopupMode := pmExplicit;
    Result := Dlg.ShowModal;
  finally
    Dlg.Free;
  end;
end;

Использование:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;

  // Теперь диалог будет отображаться правильно
  CustomMessageDlg('Важное сообщение', mtInformation, [mbOK], 0, Form2);
end;

Альтернативные решения

1. Использование TTaskDialog

В современных версиях Delphi можно использовать TTaskDialog, который автоматически правильно обрабатывает порядок модальных окон:

procedure ShowTaskDialog(Parent: TWinControl; const Title, Msg: string);
var
  Dlg: TTaskDialog;
begin
  Dlg := TTaskDialog.Create(nil);
  try
    Dlg.Caption := Title;
    Dlg.Text := Msg;
    Dlg.CommonButtons := [tcbOK];
    Dlg.MainIcon := tdiInformation;
    Dlg.Execute(Parent.Handle);
  finally
    Dlg.Free;
  end;
end;

2. Создание диалога с фиксированным родительским окном

Для простых случаев можно явно указать родительское окно:

procedure TForm1.ShowMessageWithParent(const Msg: string);
begin
  MessageBox(Handle, PChar(Msg), PChar(Caption), MB_ICONINFORMATION or MB_OK);
end;

3. Использование TForm с правильными свойствами PopupMode/PopupParent

Создайте шаблонную форму для сообщений:

procedure TMainForm.ShowCustomMessage(const Msg: string);
var
  MsgForm: TMessageForm;
begin
  MsgForm := TMessageForm.Create(nil);
  try
    MsgForm.PopupMode := pmAuto;
    MsgForm.PopupParent := Self;
    MsgForm.MessageText := Msg;
    MsgForm.ShowModal;
  finally
    MsgForm.Free;
  end;
end;

Лучшие практики

1. Всегда явно указывайте родительское окно для диалогов
2. Используйте PopupMode и PopupParent для управления порядком модальных окон
3. Для сложных диалогов создавайте специализированные формы
4. В современных приложениях предпочитайте TTaskDialog стандартным функциям

Заключение

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

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

Решение проблемы сохранения порядка модальных форм в Delphi при выводе диалоговых сообщений.

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

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

:: Главная :: Модальные формы ::