<b>第十九章　Delphi自定义部件开辟（四）</b>[Delphi编程]

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;

end.

19.3.2.2 公布担当的属性

一旦决意了部件范例,就可以决意在父类的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掌握具有通过鼠标和拖放与用户交互的本领.

19.3.2.3 .增添图形本领

一旦你声明了图形部件并公布了担当的属性,便可以给部件增添图形功效.这时需求知道两点:

　　● 决意画什么

　　● 怎样画部件图形

　 在Shape掌握的例子中,需求增添一些能利用户在计划时改变形状的属性.