我在一个窗体的上面画线,Form1.Canvas.Pen.Color:=clRed;
Form1.Canvas.Pen.Width:=3;
Form1.Canvas.MoveTo(120,130);
image1.Canvas.LineTo(120,220);
窗体上还有一个image空间,内装一个24*24大小的icon图片,我无意中发现,如果在程序中控制image移动后,image 如果从画的线上面经过,
画的线就不见了。我想保留画的线而不被image擦掉,该怎么办????????
Form1.Canvas.Pen.Width:=3;
Form1.Canvas.MoveTo(120,130);
image1.Canvas.LineTo(120,220);
窗体上还有一个image空间,内装一个24*24大小的icon图片,我无意中发现,如果在程序中控制image移动后,image 如果从画的线上面经过,
画的线就不见了。我想保留画的线而不被image擦掉,该怎么办????????
解决方案 »
- delphi
- FireBird数据库的dbExpress驱动程序是dbexpUIBfire15.dll?
- 如何给注册后的新生分班.......内详!!!!!...如果可以马上给分!!!!!!
- DLL中的Form怎么样才能根据宿主的Panel的Resize而Resize
- Happy new Year. Every programer.
- 请问FR做出的报表 是否可以更改格式和选取字段,答是或否就行,给分
- 一个关于数据库压缩的问题,高手请进!!!
- 请问一个关于用QReport做报表的问题
- 如何修改字段名
- SQL语句出错
- delphi输出的dll,如何转到VB程序里面!
- delphi中怎样改变子窗体的默认排列方式呢?
数据结构:
TLine=class
private
PFrom,
PTo: TPoint;
end;
LineList: TList;//保存TLine对象。
将你画的线的数据保存到TList中,在Form的OnPaint方法中遍历TList中的对象中的数据,画线,就能得到你要的效果。