type
TSampleShape=class(TGraphicControl)
public
constructor Create(Aowner: TComponent); override;
end;
⑵ 用新的缺省值重新声明属性Height和widthtype
TSampleShape=class(TGrahicControl)
published
property Height default 65;
property Width default 65;
end;
⑶ 在库单元的实现部分编写新的constructorconstructor TSampleShape.Create(Aowner: TComponent);
begin
inherited Create(AOwner);
width := 65;
Height := 65;
end;
3.
公布Pen和Brush 在缺省情况下，一个Canvas具有一个细的、黑笔和实心的白刷，为了使用户在使用Shape控制时能改变Canvas的这些性质，必须能在设计时提供这些对象；然后在画时使用这些对象，这样附属的Pen或Brush被称为Owned对象。 管理Owned对象需要下列三步： ● 声明对象域 ● 声明访问属性 ● 初始化Owned对象⑴ 声明Owned对象域 拥有的每一个对象必须有对象域的声明，该域在部件存在时总指向Owned对象。通常，部件在constructor中创建它，在destructor中撤消它。
Owned
对象的域总是定义为私有的，如果要使用户或其它部件访问该域，通常要提供访问属性。 下面的代码声明了
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
