模拟主动控制上的 F1 按键以加载帮助系统 - Delphi

Question

我们正在向应用程序的工具栏添加一个帮助按钮。

当用户单击此按钮时，我们需要加载他们所在控件的帮助系统

例如，如果它们位于联系人表单的地址框上，我需要使用其上下文 id 加载帮助系统

我正在考虑尝试模仿 F1 按键，然后它会处理事物的上下文 id 元素并加载帮助文件

但是，我无法让它工作，因为它尝试根据活动控件而不是基于活动控件加载帮助我在，即联系地址

有有办法做到这一点吗？本质上，我需要从先前活动的控件发送 F1 按键（假设当前活动的控件是我的工具栏按钮）

我们正在使用 Delphi 2010

Cheers

Paul

Answer 1

我认为您需要一个工具按钮 OnClick 处理程序，它可以像这样简单：

procedure TMyForm.ToolButton1Click(Sender: TObject);
begin
  if Assigned(ActiveControl) then begin
    Application.HelpContext(ActiveControl.HelpContext);
  end;
end;

使此功能有效的原因是工具栏上的控件永远不会成为活动控件。

Answer 2

你的工具栏有问题。系统工具栏通常不会获得焦点——它从来都不是活动控件。如果您使用真正的 TToolBar 和 TToolButton，则不会出现此问题。即使是 TSpeedButton 也不会有这个问题。使用适合工作的正确控件。

另外，不要尝试“模拟”键盘事件。只需直接调用 Application.HelpContext 即可。