|" 字符会分开,例如:
Edit.Hint := ''Name |Enter Name in the edit box''
等价于
Edit.Hint := Name;
Application.Hint := Enter Name in the edit box
应用程序的Hint属性可用在OnHint事件。
如果只定义了一个值,Delphi把这个值同时赋给部件和应用程序部件的Hint属性。 如果应用程序的ShowHint属性为假值,所有的帮助提示将不显示, 但可以利用程序部件的Hint属性显示其它提示,如状态条等。SHowHint属性为真, 但又没有定义Hint 属性, 如果此时文件定义了Hint属性,则此部件将使用文件的Hint值。
11.3.2 OnHint事件
当用户把鼠标放在某一部件,而该部件的Hint 值不为空值,此时发生OnHint事件。利用OnHint事件可以执行一些特殊的操作。
最常用是利用OnHint事件显示状态条的标题,状态条是用面板来实现的。下面举例说明。
这个例子使用了面板部件,菜单,一个编辑框。菜单可随意设计, 但需记住每个菜单项的Hint 值。 另外, 定义编辑框的Hint 值, 把面板置于窗体底部( 将Align 属性置于dBotton) 把面板标题置于左端(将Alignment属性置于taleftJustify) 。
OnHint 事件是应用程序部件的事件,而应用程序部件是非可视部件,不能使用Object Inspector窗体定义事件,必须编写自己的OnHint事件。TForm1对象中宣称DisplayHint方法,并在单元的implementation部分编写实现代码。在DisplayHint方法中,把应用程序的Hint属性赋给面板的标题。另一个重要问题是必须把DisplayHint方法作为处理OnHint事件的方法。窗体的OnCreate事件的代码解决了这个问题。
首先,在
下面列出了程序的完整代码。当用户运行程序, 把鼠标置于菜单或部件之上,在窗体的状态条中将出现定义的提示。
Type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure DisplayHint(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.FRM}
procedure TForm1.DisplayHint(Sender: TObject);
begin
Panel1.Caption := Application.Hint;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint := DisplayHint;
end;
11.4 自定义部件的帮助安装
Delphi有一个功能强大的帮助搜询引擎,叫做多层帮助,能为自定义的部件提供“上下文敏感”帮助。多层帮助允许把自定义部件的多个帮助文件安装成Delphi 的帮助序列,以提供给用户一种内层访问帮助文件的方式,用户有三种方法访问帮助文件:
1. 设计状态选中部件,然后按F1;2. 在自定义部件的Object Inspector窗口中按F1;3. 在Delphi帮助系统选择搜询主题。Delphi 在提供这种帮助机制时, 不需要编写额外的代码。 有些文件是自定义部件帮助系统所必须的, 以下介绍安装的具体步骤。
安装所需的文件
STEREO.PAS 自定义部件的源代码
STEREO.RES 自定义部件的资源文件
STEREO.DCR 工具调色板图标0
STEREO.HRJ 帮助工程文件
STEREO.RTF 帮助源文件
STEREO.HLP 自定义部件的帮助文件
STEREO.KUF 关键字文件
安装步骤
11.4.1 安装关键字文件
1. 退出Delphi集成开发环境
2. 备份\delphi\bin\delphi.hdx
3. 运行HelpInst应用程序
4. 打开\delphi\bin\delphi.hdx
5. 选择888 |Add菜单项并选择Sberee.buf
6. 选择File|Source
菜单项
7. 退出HelpInst
8. 因为WinHelp需要知道STEREO.HLP的位置所以要做以下其中之一:
a. 把STEREO.Hlp复制到\delphi:\bin\目录下;
b. 在WinHELP.INI文件中加上stereo.hlp=\usehelp;
11.4.2 安装自定义部件
1. 进入Delphi集成开发环境
2. 选择Option|Install Components菜单项
3. 选择Add
4. 选择Browse
5. 输入\stereo
6. 选择OK
11.4.3 激活自定义部件帮助系统
1. TstereoButton和TStereeSpeaker部件从部件调色板上的Sample页拖至窗口;
2. 选择TStereoButton部件并按F1,屏幕上出现关于TStereoButton的帮助信息;
3. 在Object Inspector窗体口选择IsOn属性并按F1,屏幕显示IsOn属性;
4. 在主菜单中选择Help|Topic菜单项,并搜询Stereo 主题, 屏幕将出现STEREO
.HLP的帮助内容。
当某一部件的