繁體中文当前位置: 首页 > 图文教程 > 开发语言 > Delphi > Delphi自定义部件开发（四）
- Delphi
- Delphi客户服务器应用开发（三）
- Delphi快速入门（五）
- Delphi面向对象的编程方法（一）
- Delphi面向对象的编程方法（二）
- Delphi面向对象的编程方法（三）
- Delphi面向对象的编程方法（四）
- 字符串列表及应用（一）
- 字符串列表及应用（二）
- 文本编辑器的设计（一）
- 文本编辑器的设计（二）
- Delphi图形图像编程（一）
- Delphi的两个实用技巧(1)
- Delphi的两个实用技巧(2)
- delphi实例编程之--制作可随处拖放的工具栏
- Delphi快速入门（一）
- Delphi快速入门（二）
- Delphi快速入门（三）
- Delphi快速入门（四）
- 动态链接库编程（二）
- Delphi图形图像编程（二）
Delphi自定义部件开发（四）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 55 ::
收藏到网摘: n/a
19.3.2 创建图形部件
图形控制是一类简单的部件。因为纯图形部件从不需要得到键盘焦点，所以它没有也不要窗口句柄。包含图形控制的应用程序用户仍然可以用鼠标操作控制，但没有键盘界面。
在本例中提供的图形部件是TShape。Shape部件位于Component Palette的Additional页。本例中的Shape部件有所不同，因此称其为TSampleShape。
创建图形部件需要下列三个步骤：
● 创建和注册部件
● 公布(publishing)继承的属性
● 增加图形功能
19.3.2.1 创建和注册部件
每个部件的创建都从相同的方式开始，在本例中如下：
● 建立名为Shapes的部件单元
● 从TGraphicControl 继承，将新部件称为TSampleShape
● 在Component Palette的Samples页上注册TSampleShape
unit Shapes
intertace
use SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics，Controls，Forms;
type
TSampleShape=class(TGraphicControl)
end;
implementation
procedure Register;
begin
RegisterComponents('Samples'，[TSampleShape]);
end;
评论 (0) All
