Исправление ошибки контекстной подсказки в диалоговых окнах Delphi 2006

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

В процессе разработки приложений на Delphi часто возникают различные проблемы, и одна из них связана с контекстной подсказкой в диалоговых окнах. Разработчик столкнулся с ситуацией, когда контекстно-чувствительная подсказка Help не работала в диалоговых окнах открытия и сохранения файлов (TOpenDialog и TSaveDialog) в приложении Delphi 2006, которое использует CHM-помощь.

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

Приложение, созданное в Delphi 2006, корректно отображало подсказки по нажатию на соответствующую кнопку в интерфейсе, но Help-сообщение, связанное с кнопкой "Помощь" в стандартных диалоговых окнах, не функционировало. Пример простой программы, демонстрирующей проблему, показывает, что при нажатии на кнопку 1 диалог открывается, но Help-сообщение не обрабатывается, несмотря на установку свойства HelpContext.

unit Unit22;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  HTMLHelpViewer ;
type
  TForm22 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  public
  end;
var
  Form22: TForm22;
implementation
{$R *.dfm}
procedure TForm22.Button1Click(Sender: TObject);
begin
  OpenDialog1.HelpContext := 10410;
  OpenDialog1.Execute;
end;
procedure TForm22.Button2Click(Sender: TObject);
begin
  Application.HelpContext(10410);
end;
procedure TForm22.FormCreate(Sender: TObject);
begin
  Application.HelpFile := 'c:\help.chm';
end;
end.

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

Проблема заключается в том, что по умолчанию обработка сообщений Help в TOpenDialog не работает, так как Windows отправляет сообщение Help родительскому окну, а не самому диалогу. Это означает, что если родительское окно не настроено на обработку сообщений, они просто игнорируются.

Чтобы решить проблему, необходимо установить свойство Application.ModalPopupMode в значение pmAuto. Это можно сделать в коде инициализации приложения или непосредственно перед отображением диалога. При установке этого свойства Delphi создает промежуточное окно (Dialogs.pas::TRedirectorWindow), которое корректно обрабатывает сообщение Help.

В случае, если изменить ModalPopupMode невозможно, можно переопределить метод WndProc в родительском окне для обработки сообщений Help:

type
  TForm22 = class(TForm)
  ...
    procedure WndProc(var Message: TMessage); override;
  end;

var
  HelpMsg: Cardinal;

procedure TForm22.WndProc(var Message: TMessage);
begin
  inherited;
  if (Message.Msg = HelpMsg) and (OpenDialog1.Handle <> 0) then
    Application.HelpContext(OpenDialog1.HelpContext);
end;

initialization
  HelpMsg := RegisterWindowMessage(HelpMsgString);
end.

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

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

Заключение

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

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

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

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

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

:: Главная :: Диалоги и Фреймы ::