Question

DELPHI基础教程：Delphi自定义部件开发（四）[1]

Answer 1

　　 创建图形部件

　　图形控制是一类简单的部件 因为纯图形部件从不需要得到键盘焦点 所以它没有也不要窗口句柄 包含图形控制的应用程序用户仍然可以用鼠标操作控制 但没有键盘界面

　　在本例中提供的图形部件是TShape Shape部件位于Component Palette的Additional页 本例中的Shape部件有所不同 因此称其为TSampleShape

　　创建图形部件需要下列三个步骤

　　● 创建和注册部件

　　● 公布（publishing）继承的属性

　　● 增加图形功能

　　 创建和注册部件

　　每个部件的创建都从相同的方式开始 在本例中如下

　　● 建立名为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;

　　end

　　 公布继承的属性

　　一旦决定了部件类型 就能决定在父类的protected部分声明哪些属性和事件能为用户可见 TGraphicControl已经公布了所有作为图形控制的属性 因此 只需公布响应鼠标和拖放事件的属性

　　type

　　TSampleShape=class（TGraphicControl）

　　published

　　property DragCursor;

　　property DragMode;

　　property OnDragDrop;

　　property OnDragOver;

　　property ONEndDrag;

　　property OnMouseDown;

　　property OnMouseMove;

　　property OnMouseup;

　　end;

　　这样 该Shape控制具有通过鼠标和拖放与用户交互的能力

　　 增加图形能力

　　一旦你声明了图形部件并公布了继承的属性 就可以给部件增加图形功能 这时需要知道两点

　　● 决定画什么

　　● 怎样画部件图形

　　在Shape控制的例子中 需要增加一些能使用户在设计时改变形状的属性

　　 决定画什么

　　图形部件通常都具有改变外观的能力 图形控制的外观取决于其某些属性的结合 例如Gauge控制具有决定其形状 方向和是否图形化地显示其过程的能力 同样 Shape控制也应有决定显示各种形状的能力

　　给予Shape控制这种能力 增加名为Shape的属性 这需要下列三步

　　● 声明属性类型

　　● 声明属性

　　● 编写实现方法

　　⑴ 声明属性类型

　　当声明一个用户自定义类型的属性时 必须首先声明属性类型 最普通地用于属性的自定义类型是枚举类型

　　对Shape控制来说 需要声明一个该控制能画形状的枚举 下面是枚举类型的声明

　　type

　　TSampleShapeType=（sstRectangle sstSquare sstRoundRect

　　sstRoundSquare sstEllipse sstCircle）

　　TSampleShape = class（TGraphicControl）

　　end;

　　这样 就可以用该类型来声明属性

lishixinzhi/Article/program/Delphi/201311/25109