049.htm

delphi教程

<p>type</p>
<p>TMyComponent=class(TControl)</p>
<p></font><font face="宋体" lang="ZH-CN" size="3">…</font><font face="Arial" size="3"></p>
<p>protected</p>
<p>procedure CMChangeColor(var Message:TMessage);</p>
<p>message CM_CHANGECOLOR;</p>
<p>end:</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>procedure TMyComponent.CMChangeColor(var Message: TMessage);</p>
<p>begin</p>
<p>color := Message lParam;</p>
<p>inherited;</p>
<p>end;</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>19.2.2.4 </font><font face="宋体" lang="ZH-CN" size="3">注册部件</p>
<p>　</p>
<p>　　编写部件及其属性、方法和事件只是部件创建过程的一部分。尽管部件具有这些特征就可用，但部件真正功能强大的是在设计时操作它们的能力。</p>
<p>　　使部件在设计时可用需要经过如下几步：</p>
<p>　　●</font><font size="3"> </font><font face="宋体" lang="ZH-CN" size="3">用</font><font
face="Arial" size="3">Delphi</font><font face="宋体" lang="ZH-CN" size="3">注册部件</font><font
face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">●</font><font size="3"> </font><font
face="宋体" lang="ZH-CN" size="3">增加选择板位图</font><font face="Arial"
size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">●</font><font size="3"> </font><font
face="宋体" lang="ZH-CN" size="3">提供有关属性和事件的帮助</font><font
face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">●</font><font size="3"> </font><font
face="宋体" lang="ZH-CN" size="3">存贮和读取属性</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>1. </font><font face="宋体" lang="ZH-CN" size="3">用</font><font face="Arial"
size="3">Delphi</font><font face="宋体" lang="ZH-CN" size="3">注册部件</font><font
face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">为了让</font><font face="Arial"
size="3">Delphi</font><font face="宋体" lang="ZH-CN" size="3">识别自定义部件，并将它们放置于</font><font
face="Arial" size="3">Component Palette</font><font face="宋体" lang="ZH-CN" size="3">上，你必须注册每一个部件。</font><font
face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">注册一个部件要在部件所在单元里加入</font><font
face="Arial" size="3">Register</font><font face="宋体" lang="ZH-CN" size="3">方法，这包括两个方面的内容：</font><font
face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">●</font><font size="3"> </font><font
face="宋体" lang="ZH-CN" size="3">声明注册过程</font><font face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">●</font><font size="3"> </font><font
face="宋体" lang="ZH-CN" size="3">实现注册过程</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">一旦安装了注册过程，就可以将部件安装在选择板上。</p>
<p>　　注册过程要在部件所在单元中写一个过程，该过程必须以</font><font
face="Arial" size="3">Register</font><font face="宋体" lang="ZH-CN" size="3">命名。</font><font
face="Arial" size="3">Register</font><font face="宋体" lang="ZH-CN" size="3">必须出现在库单元的</font><font
face="Arial" size="3">interface</font><font face="宋体" lang="ZH-CN" size="3">部分，这样</font><font
face="Arial" size="3">Delphi</font><font face="宋体" lang="ZH-CN" size="3">就能定位它。在</font><font
face="Arial" size="3">Register</font><font face="宋体" lang="ZH-CN" size="3">过程中，可以为每个部件调用过程</font><font
face="Arial" size="3">RegisterComponents</font><font face="宋体" lang="ZH-CN" size="3">。</font><font
face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">下面的代码演示了建立和注册部件的概略方法：</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>unit MyBtns;</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>interface</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>type</p>
<p></font><font face="宋体" lang="ZH-CN" size="3">…</font><font size="3"> </font><font
face="Arial" size="3">{ </font><font face="宋体" lang="ZH-CN" size="3">声明自定义部件</font><font
size="3"> </font><font face="Arial" size="3">}</p>
<p>procedure Register;</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>Implementation</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>procedure Register;</p>
<p>begin</p>
<p></font><font face="宋体" lang="ZH-CN" size="3">…</font><font size="3"> </font><font
face="Arial" size="3">{ </font><font face="宋体" lang="ZH-CN" size="3">注册部件</font><font
size="3"> </font><font face="Arial" size="3">}</p>
<p>end;</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>end.</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">在</font><font face="Arial" size="3">Register</font><font
face="宋体" lang="ZH-CN" size="3">过程中，必须注册每一个要加入</font><font
face="Arial" size="3">Component Palette</font><font face="宋体" lang="ZH-CN" size="3">的部件，如果库单元包含若干部件，就要将它们一次性注册。</p>
<p>　　注册一个部件时，为部件调用</font><font face="Arial" size="3">RegisterComponents</font><font
face="宋体" lang="ZH-CN" size="3">过程。</font><font face="Arial" size="3">RegisterComponents</font><font
face="宋体" lang="ZH-CN" size="3">告诉</font><font face="Arial" size="3">Delphi</font><font
face="宋体" lang="ZH-CN" size="3">两件有关所注册的部件的事</font><font
face="Arial" size="3">:</font><font face="宋体" lang="ZH-CN" size="3">：</font><font
face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">●</font><font size="3"> </font><font
face="宋体" lang="ZH-CN" size="3">要注册部件所在的</font><font face="Arial"
size="3">Component Palette</font><font face="宋体" lang="ZH-CN" size="3">的页名</font><font
face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">●</font><font size="3"> </font><font
face="宋体" lang="ZH-CN" size="3">要安装的部件的名字</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">选择板的页名是个字符串。如果你所给名字的页不存在，</font><font
face="Arial" size="3">Delphi</font><font face="宋体" lang="ZH-CN" size="3">就用该名字创建新的页。</font><font
face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">下面的</font><font face="Arial"
size="3">Register</font><font face="宋体" lang="ZH-CN" size="3">过程注册了一个名为</font><font
face="Arial" size="3">TMyComponent</font><font face="宋体" lang="ZH-CN" size="3">的部件，并将其放在名为“</font><font
face="Arial" size="3">Miscellaneous</font><font face="宋体" lang="ZH-CN" size="3">”的</font><font
face="Arial" size="3">Component Palette</font><font face="宋体" lang="ZH-CN" size="3">页上。</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>procedure Register;</p>
<p>begin</p>
<p>RegisterComponents('Miscellaneous', [TFirst, TSecond]);</p>
<p>end;</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">也可以在相同的页上，或者在不同的页上，一次注册多个部件：</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>procedure Register;</p>
<p>begin</p>
<p>RegisterComponents('Miscellaneous', [TFirst, TSecond]);</p>
<p>RegisterComponents('Assorted', [TThird]);</p>
<p>end;</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>2. </font><font face="宋体" lang="ZH-CN" size="3">增加</font><font face="Arial"
size="3">Component Palette</font><font face="宋体" lang="ZH-CN" size="3">上的位图</font><font
face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">每个部件都需要一个位图来在</font><font
face="Arial" size="3">Component Palette</font><font face="宋体" lang="ZH-CN" size="3">上代表它。如果安装时没有描述自己的位图，则</font><font
face="Arial" size="3">Delphi</font><font face="宋体" lang="ZH-CN" size="3">会自动套用缺省位图。</p>
<p>　　因为选择板位图只有在设计时需要，所以没有必要将它们编译进库单元。而是将它们提供在与库单名相同的</font><font
face="Arial" size="3">Windows</font><font face="宋体" lang="ZH-CN" size="3">资源文件中，扩展名为</font><font
face="Arial" size="3">.DCR</font><font face="宋体" lang="ZH-CN" size="3">。用</font><font
face="Arial" size="3">Delphi</font><font face="宋体" lang="ZH-CN" size="3">的位图编辑器来生成资源文件，每个位图边长</font><font
face="Arial" size="3">24</font><font face="宋体" lang="ZH-CN" size="3">个象素。</p>
<p>　　为每个要安装的库单元提供一个选择板位图文件，在每个文件中为每个要注册的部件提供一个位图。位图图象名与部件名相同，将文件放在与库单元相同的目录中，这样在安装部件时</font><font
face="Arial" size="3">Dephi</font><font face="宋体" lang="ZH-CN" size="3">就能发现位图。</p>
<p>　　例如，如果你在</font><font face="Arial" size="3">ToolBox</font><font
face="宋体" lang="ZH-CN" size="3">单元中创建一个名为</font><font face="Arial"
size="3">TMyControl</font><font face="宋体" lang="ZH-CN" size="3">的部件，就需要建立名为</font><font
face="Arial" size="3">TOOLBOX.DCR</font><font face="宋体" lang="ZH-CN" size="3">的资源文件，文件中包含名为</font><font
face="Arial" size="3">TMyControl</font><font face="宋体" lang="ZH-CN" size="3">的位图。</p>
<p>　　</font><font face="Arial" size="3">3. </font><font face="宋体" lang="ZH-CN"
size="3">提供有关属性和事件的帮助</font><font face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">当在窗体中选择一个部件或在</font><font
face="Arial" size="3">Object Inspector</font><font face="宋体" lang="ZH-CN" size="3">中选择事件或属性时，能够按</font><font
face="Arial" size="3">F1</font><font face="宋体" lang="ZH-CN" size="3">得到有关这一项的帮助。如果创建了相应的</font><font
face="Arial" size="3">Help</font><font face="宋体" lang="ZH-CN" size="3">文件的话，自定义部件的用户能得到有关你的部件的相应的文档。</p>
<p>　　因为</font><font face="Arial" size="3">Delph</font><font face="宋体"
lang="ZH-CN" size="3">使用了特殊的</font><font face="Arial" size="3">Help</font><font
face="宋体" lang="ZH-CN" size="3">引擎支持跨多个</font><font face="Arial"
size="3">Help</font><font face="宋体" lang="ZH-CN" size="3">文件处理主题搜索，所以你能提供关于自定义部件的小的</font><font
face="Arial" size="3">Help</font><font face="宋体" lang="ZH-CN" size="3">文件，用户不需要额外的步骤就能找到你的文档。你的</font><font
face="Arial" size="3">Help</font><font face="宋体" lang="ZH-CN" size="3">成了</font><font
face="Arial" size="3">Delphi Help</font><font face="宋体" lang="ZH-CN" size="3">系统的一部分。</p>
<p>　　要给用户提供帮助，要理解下列两方面</font><font face="Arial"
size="3">:</p>
<p></font><font face="宋体" lang="ZH-CN" size="3">●</font><font size="3"> </font><font
face="Arial" size="3">Delphi</font><font face="宋体" lang="ZH-CN" size="3">怎样处理</font><font
face="Arial" size="3">HELP</font><font face="宋体" lang="ZH-CN" size="3">请求</font><font
face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">●</font><font size="3"> </font><font
face="宋体" lang="ZH-CN" size="3">将</font><font face="Arial" size="3">HELP</font><font
face="宋体" lang="ZH-CN" size="3">插入</font><font face="Arial" size="3">Delphi</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋体" lang="ZH-CN" size="3">⑴</font><font size="3"> </font><font
face="Arial" size="3">Delphi</font><font face="宋体" lang="ZH-CN" size="3">怎样处理</font><font
face="Arial" size="3">HELP</font><font face="宋体" lang="ZH-CN" size="3">请求</font><font