从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没有起作用。请问高手如何解决?
...全文
79 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
microchu 2005-03-16
  • 打赏
  • 举报
回复
楼上正解
shotking 2005-03-16
  • 打赏
  • 举报
回复
控件invalidate或者paint的时候给重画掉了
可以把画线语句写到onpaint或onvalidate里面去
caiso 2005-03-16
  • 打赏
  • 举报
回复
顶一下

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧