解决加到100分:按F1如何实现帮助功能,delphi 是怎么实现的?

Question

我想实现用用户按F1弹出帮助文件,以及这些帮助文件能否支持CHM格式的电子文件

Answer 1

uses ShellAPI;...
Public
  Procedure WmHelp(var message:TWMHELP);message WM_HELP;
...
procedure TForm1.WmHelp(var message: TWMHELP);
begin
  Shellexecute(0,'open','c:\help.chm',nil,nil,SW_NORMAL);
end;

Answer 2

也可以用热键，更加灵活：
http://blog.csdn.net/linzhengqun/archive/2004/10/19/142730.aspx
看最后一个例子，即是热键的用法

Answer 3

简单一点，新建个TAction，设shortCut为F1，在OnExecute里写相关事件就可以了。
反正你只要在你程序里点F1弹出你的帮助而已。

Answer 4

放ApplicationEvent在程序主窗口，在ApplicationEvent的OnMessage事件写：
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
 var Handled: Boolean);
begin
 if Msg.message=WM_KeyDown then
   if msg.wParam=vk_f1 then
   begin
     ShellExecute(application.handle,'open','c:\myhelp\help.chm','','',sw_show);//创建帮助窗口
     handled:=True;
   end;
end;