delphi 画线奇怪问题,两台机器同一个exe效果不一样.

Question

做了一个delphi画图测试.form 中有一个ScrollBox,ScrollBox中有1个image和3个speedbutton.
scrollbox属性设为 color = clBlack
image1的属性设为: align = client;transpanrent = true;
然后form中增加一个button.它的onClick事件为: self.Image1.Canvas.MoveTo(self.SpeedButton2.Left,self.SpeedButton2.Top);
  self.Image1.Canvas.Pen.Color :=  clRed;
  self.Image1.Canvas.LineTo(self.SpeedButton3.Left,self.SpeedButton3.Top);得到的执行效果后为灰色背景而不是原来scrollbox的黑色背景了.
而我把这个exe发到一个朋友帮测试,他的效果就是黑色的背景,然后3个speedbutton和一条线(就是我想要的效果).搞不明白了.大家帮看看啊.要达到我的效果该如何做呢(就是要画连接speedbutton的线).

Answer 1

主要是我要动态创建speedbutton,作为元件放到scrollbox中,不是为了单纯的作图.我用三台机器做了测试;我的xp和2000都是这样,但是有个朋友的2000就出来了我要的效果.