TGraphicControl = class(TControl)
private
FCanvas: TCanvas;
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
protected
procedure Paint; virtual;
property Canvas: TCanvas read FCanvas;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;<protected>只有自身类及派生类内部可以使用!
解决方案 »
- delphi 中文和数字转16进制问题
- 测试免费的可外链图片空间,发几个刀刀图。不喜勿入
- 如何把Formshow中创建的窗体成为活动窗体
- 为什么我的Qreport,在preview什么也显示不了?在先等待,解决了100分
- 数据库问题大家指点!!谢谢!
- 如何让编号自动增加?并能填补以前删除的号码?
- 哪里有fast report的Demo?
- 大虾们,请教怎样在线更新数据。比如金山毒霸在线更新病毒数据一样。
- 怎么样用进程ID直接杀死进程?
- adoquery1中SQL的应用
- 用TTable和Tquery作数据库插入的两个小问题。
- to Delphi_cs(Hello) [“如何在sql的查询结果中加入序号?”]续
fcanvas:tcanvas; public
property canvas:tcanvas read fcanvas ; 并同样修改了paint 对象方法,
把canvas 均改成了tcanvas,
奇怪的是编译组件是可以的,且可以安装。但在将其加入到新窗体,
就立即出错了。那么有没有可能这样做呢?
如