027.htm

很不错的delphi入门级教程

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

</TD>
<TD CLASS="tt3" VALIGN="bottom" width="8%"  ><strong><A HREF="028.htm"><FONT style="FONT-SIZE: 9pt">后一页</font></A><BR>
<A HREF="026.htm"><FONT style="FONT-SIZE: 9pt">前一页</font></A><BR>

<A HREF="index.html"><FONT style="FONT-SIZE: 9pt">回目录</font></A><BR>

</strong>
</TD>
</TR>
</table>
</BODY></HTML>