delphi paintBox的问题

xiaowei_001 2007-10-31 10:49:57
我在窗体中放了一个scrollbox,在其上放了一个paintbox,可是不知为何paintbox的onpaint事件就无效了
是不是什么属性要设,大虾们救救!
...全文
547 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
天行归来 2007-10-31
  • 打赏
  • 举报
回复
没有得到结果不能说明没有响应事件。
或许是你画笔、刷子颜色等设置问题,代码应该是有执行,可以在OnPaint里设置断点,调试一下就知道是否有执行此事件。
xiaowei_001 2007-10-31
  • 打赏
  • 举报
回复
我试了一下,在onpaint下一般的,比如:paintbox1.canvas.move(x,y);paintbox1.canvas.lineto(x,y);
还是可以的,可是我想在里面画线就不行了(做画板的那种),比如: paintbox1.Canvas.MoveTo(0,0);
paintbox1.Canvas.LineTo(200,200);
For i:=0 to LineList.Count-1 do
begin
paintbox1.Canvas.Brush.Color:=Color;
Line:=LineList[i];
paintbox1.Canvas.Polyline(Line.PointList);//画每一条线对象.
if Line.Selected then
begin
paintbox1.Canvas.Brush.Color:=clRed;
For j:=0 to High(Line.PointList) do
begin
p:=Line.PointList[j];
paintbox1.Canvas.FillRect(Rect(P.X-2,P.Y-2,P.x+2,P.Y+2));
end;
end;
end;
if FOperatorType=otDrawLine then
begin
if High(FPointList)>=1 then
paintbox1.Canvas.Polyline(FPointList);//如果正在画线,则把未完成的线也画出来.


这样onpaint就没有响应了
xiaowei_001 2007-10-31
  • 打赏
  • 举报
回复
我试了啊,
还是不行哦
楼上的你试可以吗
天行归来 2007-10-31
  • 打赏
  • 举报
回复
实在不行,就重新拖两个控件摆上。
测试了夏,控件默认设置是不会有此问题。

830

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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