从TPanel继承来的自定义控件,如何在控件上使用Canvas?

acqy 2005-03-16 11:35:52
我有一个自定义的控件TControl1从TPanel继承,其constructor代码如下:
constructor TControl1.Create (AOwner: TComponent);
begin
inherited create (AOwner);
Width := 100;
Height := 50;
Canvas.MoveTo (10, 10);
Canvas.LineTo (20, 20);
end;

在使用TControl1的时候,一个Panel形状的控件可以显示在Form上,但是控件上没有那条线,也就是Canvas.MoveTo和Canvas.LineTo没有起作用。请问高手如何解决?
...全文
65 3 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
microchu 2005-03-16
楼上正解
  • 打赏
  • 举报
回复
shotking 2005-03-16
控件invalidate或者paint的时候给重画掉了
可以把画线语句写到onpaint或onvalidate里面去
  • 打赏
  • 举报
回复
caiso 2005-03-16
顶一下
  • 打赏
  • 举报
回复
发帖
Delphi

5123

社区成员

Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
帖子事件
创建了帖子
2005-03-16 11:35
社区公告
暂无公告