|
如何制作和使用帮助文件(8) { Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
{$R *.DFM}
procedure TAboutBox.OKButtonClick(Sender: TObject);
begin
Close;
end;
end.
以 上 可 用 调 用 动 态 联 结 库 的 方 法，DELPHI 中 公 用 动 态 联 结 库， 常 数 等 用 不 着 声 明， 可 拿 来 就 用， 在 上 面 的 窗 体 中 再 加 入 二 个 按 钮，Content，Search， 输 入 以 下 代 码：
procedure TForm1.ContentClick(Sender: TObject);
begin
WINHELP(form1.ClientHandle,
'd:\winword\dxchlp.hlp',
HELP_CONTENTS,0);
end;
procedure TForm1.SearchClick(Sender: TObject);
begin
WINHELP(form1.ClientHandle,
'd:\winword\dxchlp.hlp',
HELP_KEY,0);
end;
VFP
VFP 中 有 内 建 的 菜 单 帮 助 命 令， 另 要 将 帮 助 文 件 设 到 自 己 的 帮 助 文 件 处， 语 句 是:SET HELP TO Drive:\Path\helpfile.hlp， 在 菜 单 位 中 显 示 帮 助 目 录 的 菜 单 项# 是_mst_help， 显 示 帮 助 中 关 键 字 搜 索 的 菜 单 项# 是_mst_hpsch， 现 举 一 例： 进 入VFP， 选“ 文 件”/“ 新 建”/“ 项 目”， 新 建 一 主 程 序main.prg， 输 入 以 下 代 码：
SET DEFAULT TO D:\WINWORD\VFP
SET HELP TO D:\WINWORD\DXCHLP.HLP
PUSH MENU _MSYSMENU
SET SYSMENU OFF
DO MainMenu.MPR
新 建 一 主 程 序 主 菜 单MainMenu， 一 级 菜 单 有File 和Help， 再 设File 的 子 菜 单Exit，Help 的 子 菜 单Contents 和Search，Contents 的 菜 单 项# 是_mst_help， 而Search 的 菜 单 项# 是_mst_ hpsch，Exit 过 程 输 入 以 下 代 码：
POP MENU _MSYSMENU TO MASTER
CLEAR EVENTS
SET SYSMENU TO DEFAULT
|
