delphi - 确定哪个帮助上下文 ID 正在发送到帮助文件？

Question

我正在开发一个包含数百个表单的应用程序以及一个包含 2,000 多个主题的相应帮助文件。我有一个特定的表单，我正在分配一个上下文 ID，但是当我按“F1”时，帮助文件会在其默认页面上打开(这意味着未找到传递给它的 ID)。我需要找出传递给帮助文件的 ID，以进一步调试为什么它没有提出正确的主题。我如何找到这个号码？

Answer 1

我在写这个问题时发现了解决方案，所以我以问答方式回答这个问题......

Application 组件有一个事件OnHelp，当打开帮助文件时会触发该事件。为该事件分配一个处理函数，然后读取 Data 参数以获取该上下文 ID。

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHelp:= AppHelp;
end;

function TForm1.AppHelp(Command: Word; Data: THelpEventData; var CallHelp: Boolean): Boolean;
begin
  ShowMessage(IntToStr(Data));
end;

另外，您可以将 CallHelp 参数更改为 False，以使您的应用程序在打开帮助文件之前取消对帮助文件的调用。