对于我们的应用程序,我们创建了一个在线帮助,客户可以在其中查找有关我们应用程序的信息。他们可以在菜单中找到它,但我也想通过在我们应用程序中的任何位置按F1键来使其可用(因为该键主要用于其他应用程序中的帮助)。
我尝试使用RegisterHotKey函数,但事实证明,这会在整个系统范围内注册热键。当您在应用程序中时,我只希望它打开我们的在线帮助。
所以我尝试设置键盘挂钩,但这似乎也适用于整个系统。有没有一种方法可以确保在应用程序中按F1键将其打开,但是当您没有将应用程序聚焦时,该方法就无法打开?
编码我的尝试:
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
procedure TZZ_Main_Form.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey = HotKeyIDF1 then btOnlineHelpClick(nil);
end;
在FormCreate和FormDestroy中:
RegisterHotKey(Handle, HotKeyIDF1, 0, VK_F1);
UnRegisterHotKey(Handle, HotKeyIDF1);
关于键盘挂钩,我尝试过的事情:
hkHook := SetWindowsHookEx(WH_KEYBOARD,@KeyboardProc,hInstance,GetCurrentThreadID());
function KeyboardProc(Code, wParam, lParam: Integer): Integer;
var
url: String;
ShellInfo: TShellExecuteInfo;
begin
try
case wParam of
VK_F1:
begin
url := 'ourOnlineHelpLink'
if url <> '' then
begin
FillChar( ShellInfo, SizeOf( TShellExecuteInfo ), 0 );
ShellInfo.cbSize := SizeOf( TShellExecuteInfo );
ShellInfo.fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_NO_UI or
SEE_MASK_FLAG_DDEWAIT;
ShellInfo.Wnd := HWnd_Desktop;
ShellInfo.lpVerb := 'OPEN';
ShellInfo.lpFile := PChar( url );
ShellInfo.lpParameters := nil;
ShellInfo.lpDirectory := nil;
ShellInfo.nShow := sw_ShowNormal;
ShellExecuteEx( @ShellInfo );
end;
end;
end;
finally
Result := -1;
end;
end;
答案 0 :(得分:2)
如果您想向您的应用程序显示在线帮助,则您希望通过OnHelp事件使用现有的帮助支持,因为Ondrej Kelle已在其评论中推荐了该信息。
使用现有的帮助系统也会给您带来另一个好处。就是说,您可以为每个控件设置HelpContext
和HelpKeyword
的特定值,这意味着您无需打开在线帮助开始页面,就可以导航到相关的帮助页面,该页面利用了提供的帮助系统对您的应用程序用户来说更加容易。
如果您不想通过OnHelp事件将HTMLHelp系统用于在线帮助,则仍然可以轻松实现自己的系统来显示帮助。
答案 1 :(得分:2)
您可以使用TApplicationEvents.OnHelp
在应用程序范围内拦截 F1 。
将组件拖放到您的主窗体上,或在主窗体之前创建的数据模块中。双击其事件选项卡上的OnHelp
事件,然后添加类似于以下内容的代码(在Delphi 2007之后,参数类型发生了变化,因此我对这两种方法都提供了支持):
// Delphi 2007 and earlier
{$IFDEF VER185}
function TMainForm.ApplicationEvents1Help(Command: Word; Data: Integer;
var CallHelp: Boolean): Boolean;
begin
CallHelp := False;
// Call your own procedure to implement help as you'd like
Result := True;
end;
{$ELSE Greater than D2007}
function TMainForm.ApplicationEvents1Help(Command: Word; Data: NativeInt;
var CallHelp: Boolean): Boolean;
begin
CallHelp := False;
// Call your own procedure to implement help as you'd like
Result := True;
end;
{$ENDIF}