简单的制作方法:先用FronPage制作帮助文件,然后用HTML Help Workshop或者EasyCHM等软件编译得到*.chm的帮助文件了。HTML Help Workshop可以到微软的网站上去下载。 应用程序中的帮助可分为上下文关联和非关联两种。上下文关联,是指用户按F1键后,出现与当前焦点对象(如窗体、文本框、下拉列表框)相关的帮助画面;不同对象,出现的帮助不同。非关联帮助,是指在程序任何位置按F1键后,出现同一帮助画面。建议使用EasyCHM工具制作chm文件,可视化操作,相比HTML Help Workshop来说,操作简单。如下图所示:
function HtmlHelpA (hwndcaller:Longint; lpHelpFile:string; wCommand:Longint;dwData:string): HWND;stdcall; external 'hhctrl.ocx';
2.定义调用chm帮助文件的公共函数
procedure TForm1.ShowChmHelp(sTopic:string); const HH_DISPLAY_TOPIC=0; var i:integer; begin i:=HtmlHelpA(Application.Handle,Pchar(extractfilepath(application.ExeName)+'help.chm'),HH_DISPLAY_TOPIC,sTopic); if i=0 then begin Showmessage('help.chm 帮助文件损坏!'); exit; end; end;
3.设置应用程序的Onhelp事件响应函数
procedure TForm1.FormCreate(Sender: TObject); begin application.OnHelp:=FormHelp; end;
4. 设置所有窗体的OnHelp事件
function TForm1.FormHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean; begin case Data of 10100: ShowChmHelp('1.html'); 10101: ShowChmHelp('2.html'); else ShowChmHelp('3.html'); end; end; function TOKBottomDlg.FormHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean; begin case Data of 20200: Form1.ShowChmHelp('6.html'); 20201: Form1.ShowChmHelp('7.html'); else Form1.ShowChmHelp('8.html'); end; end;
5. 所有窗体处理F1按键事件
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = vk_f1 then application.HelpCommand (HELP_CONTEXT,TControl(Self.ActiveControl).HelpContext); end; procedure TOKBottomDlg.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = vk_f1 then application.HelpCommand (HELP_CONTEXT,TControl(Self.ActiveControl).HelpContext); end;
Chm格式的帮助是从windows98以后才出现的新的格式,与.hlp格式相比,具有更简单的编辑方式、更丰富的画面。它是通过Chm制作工具对网页文件进行编译得到的,所以理论上你可以把帮助文件做的和网页一样漂亮。 简单的制作方法:先用FronPage制作帮助文件,然后用HTML Help Workshop或者EasyCHM等软件编译得到*.chm的帮助文件了。HTML