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);
    procedure KeySearch1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Exit1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.contents1Click(Sender: TObject);
begin
Application.HelpFile := ''''d:\winword\dxchlp.hlp'''';
Application.HelpCommand(Help_Contents,0); { 显 示 帮 助 目 录}
end;

procedure TForm1.KeySearch1Click(Sender: TObject);
begin
Application.HelpFile := ''''d:\winword\dxchlp.hlp'''';
Application.HelpCommand(Help_PartialKey,0); { 显 示 关 键 字 搜 索}

end;

procedure TForm1.About1Click(Sender: TObject);
var
   myAbout:TAboutbox;
begin

myAbout:=TAboutbox.Create(Self);{myAbout 是 类TAboutbox 的 一 个 实 例}
myAbout.ShowModal; { 显 示“ 关 于”}

end;

end.

unit Uniabout;

interface

uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls;

type
  TAboutBox = class(TForm)
    OKButton: TBitBtn;
    procedure OKButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { 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

---- 以 上 程 序 在P133 兼 容 机， 中 文WORD6.0， 中 文WINDOWS95， 中 文Visual Foxpro3.0，Visual Basic4.0，Delphi1.0 上 运 行 通 过。

上一页  [1] [2]