delphi paintBox的问题

[xiaowei_001]

我在窗体中放了一个scrollbox,在其上放了一个paintbox,可是不知为何paintbox的onpaint事件就无效了
是不是什么属性要设，大虾们救救!

[天行归来]

实在不行，就重新拖两个控件摆上。
测试了夏，控件默认设置是不会有此问题。

[xiaowei_001]

我试了啊，
还是不行哦
楼上的你试可以吗

[xiaowei_001]

我试了一下，在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就没有响应了

[天行归来]

没有得到结果不能说明没有响应事件。
或许是你画笔、刷子颜色等设置问题，代码应该是有执行，可以在OnPaint里设置断点，调试一下就知道是否有执行此事件。