|
如何制作和使用帮助文件(6) i% = WinHelp(Form1.hwnd, App.HelpFile, HELP_KEY, 0)
End Sub
DELPHI
进 入DELPHI， 选File/New Project， 出 现 一 空 白 窗 体Form1, 加 一 个 菜 单 控 制Mainmenu1 到Form1， 双 击Mainmenu1， 设 置 其 一 级 菜 单， 有 二 项：（Caption 分 别 为：）File ，Help， 而File 的 下 一 级 菜 单Exit，Help 的 下 一 级 菜 单 为Contents， KeySearch， About， 对 应 的Name 属 性 分 别 为: File1，Help1，Exit1，Contents1，KeySearch1，About1。
因 为 要 用 到About 关 于 窗 口， 所 以 加 入 一 新 窗 体， 其Name 属 性 为AboutBox， 再 加 入 一BitBtn 按 钮OKButton 到AboutBox 窗 体，OKButton 的Caption 属 性 为OK，Glyph 属 性 为 一 确 定 图 片 或 干 脆 为 空。
假 定 帮 助 文 件 是D:\WINWORD\DXCHLP.HLP。
程 序 代 码 如 下：
program Delhelp;
uses Forms,
Unihelp in 'UNIHELP.PAS' {Form1},
Uniabout in 'UNIABOUT.PAS' {AboutBox};
{$R *.RES}
begin
Application.CreateForm(TForm1, Form1);
{Application.CreateForm(TAboutBox, AboutBox);}
{注意注掉这一行，因为AboutBox是在运行时产生的,详见代码}
Application.Run;
end.
unit Unihelp;
interface
uses SysUtils, WinTypes, WinProCS, Messages, Classes, Graphics, Controls,Forms, Dialogs, Menus,uniAbout;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
Help1: TMenuItem;
contents1: TMenuItem;
KeySearch1: TMenuItem;
About1: TMenuItem;
Exit1: TMenuItem;
procedure Exit1Click(Sender: TObject);
procedure contents1Click(Sender: TObject);
|
