帮助文件速成 (2000年9月9日).txt

自己对DELPHI学习的一点体会

i%=WinHelp(Form1.hwnd,App.HelpFile,HELP_KEY,0) 

EndSub 

DELPHI 

----进入DELPHI，选File/NewProject，出现一空白窗体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。 

----程序代码如下： 

programDelhelp; 

uses 

Forms, 

Unihelpin'UNIHELP.PAS'{Form1}, 

Uniaboutin'UNIABOUT.PAS'{AboutBox}; 

{$R*.RES} 

begin 

Application.CreateForm(TForm1,Form1); 

{Application.CreateForm(TAboutBox,AboutBox);} 

{注意注掉这一行，因为AboutBox是在运行时产生的,详见代码} 

Application.Run; 

end. 

unitUnihelp; 

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; 

procedureExit1Click(Sender:TObject); 

procedurecontents1Click(Sender:TObject); 

procedureKeySearch1Click(Sender:TObject); 

procedureAbout1Click(Sender:TObject); 

private 

{Privatedeclarations} 

public 

{Publicdeclarations} 

end; 

var 

Form1:TForm1; 

implementation 

{$R*.DFM} 

procedureTForm1.Exit1Click(Sender:TObject); 

begin 

Close; 

end; 

procedureTForm1.contents1Click(Sender:TObject); 

begin 

Application.HelpFile:='d:\winword\dxchlp.hlp'; 

Application.HelpCommand(Help_Contents,0);{显示帮助目录} 

end; 

procedureTForm1.KeySearch1Click(Sender:TObject); 

begin 

Application.HelpFile:='d:\winword\dxchlp.hlp'; 

Application.HelpCommand(Help_PartialKey,0);{显示关键字搜索} 

　

end; 

procedureTForm1.About1Click(Sender:TObject); 

var 

myAbout:TAboutbox; 

begin 

myAbout:=TAboutbox.Create(Self);{myAbout是类TAboutbox的一个实例} 

myAbout.ShowModal;{显示"关于"} 

end; 

end. 

unitUniabout; 

interface 

usesWinTypes,WinProcs,Classes,Graphics,Forms,Controls,StdCtrls, 

Buttons,ExtCtrls; 

type 

TAboutBox=class(TForm) 

OKButton:TBitBtn; 

procedureOKButtonClick(Sender:TObject); 

private 

{Privatedeclarations} 

public 

{Publicdeclarations} 

end; 

var 

AboutBox:TAboutBox; 

implementation 

{$R*.DFM} 

procedureTAboutBox.OKButtonClick(Sender:TObject); 

begin 

Close; 

end; 

end. 

----以上可用调用动态联结库的方法，DELPHI中公用动态联结库，常数等用不着声明，可拿来就用，在上面
的窗体中再加入二个按钮，Content，Search，输入以下代码： 


procedureTForm1.ContentClick(Sender:TObject); 

begin 

WINHELP(form1.ClientHandle,'d:\winword\dxchlp.hlp',HELP_CONTENTS,0); 

end; 

procedureTForm1.SearchClick(Sender:TObject); 

begin 

WINHELP(form1.ClientHandle,'d:\winword\dxchlp.hlp',HELP_KEY,0); 

end; 

VFP 

----VFP中有内建的菜单帮助命令，另要将帮助文件设到自己的帮助文件处，语句
是:SETHELPTODrive:\Path\helpfile.hlp，在菜单位中显示帮助目录的菜单项#是_mst_help，显示帮助中
关键字搜索的菜单项#是_mst_hpsch，现举一例：进入VFP，选"文件"/"新建"/"项目"，新建一主程序
main.prg，输入以下代码： 

SETDEFAULTTOD:\WINWORD\VFP 

SETHELPTOD:\WINWORD\DXCHLP.HLP 

PUSHMENU_MSYSMENU 

SETSYSMENUOFF 

DOMainMenu.MPR 

----新建一主程序主菜单MainMenu，一级菜单有File和Help，再设File的子菜单Exit，Help的子菜单
Contents和Search，Contents的菜单项#是_mst_help，而Search的菜单项#是_mst_hpsch，Exit过程输入
以下代码： 

POPMENU_MSYSMENUTOMASTER 

CLEAREVENTS 

SETSYSMENUTODEFAULT 

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


--------------------------------------------------------------------------------