实现OnMouseMove事件
每次响应,现擦除旧坐标线,恢复原图象,然后画新坐标线
每次响应,现擦除旧坐标线,恢复原图象,然后画新坐标线
解决方案 »
- delphi读取txt内容并按顺序执行脚本内容
- 各位大侠,进来看看 Delphi6.0 用Qreport组件打印报表过程中如何设置控件组 便于访问?
- sendmessage和findwindowex的问题?
- 关于程序启动窗口的问题——难道Delphi竟然没有好的解决办法?
- 关于TreeView图标问题,急!!!请求各位大侠帮忙!!!!
- 急!!高分求助!
- 哪有详细一点的dbexpress的书或资料?
- 求救:fastreport设计器预览和程序中预览显示不一致的问题
- 2007的QQ如何制作尾巴
- 设计CSDN本论坛的人一定是左撇子!不信吗?
- 如何通过程序代码改本机时间格式?
- 串口 多线程 前台 后台 数据处理 建议!
用异或方式作图即可,不需恢复原图象
Oldx,Oldy: Integer;procedure TForm1.MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Canvas.Brush.Style := bsClear;
Canvas.Pen.Color := clWhite;
Canvas.Pen.Mode := pmXor;
Canvas.Line(Oldx-20,Oldy,Oldx+20,Oldy);
Canvas.Line(Oldx,Oldy-20,Oldx,Oldy+20);
Oldx := x;Oldy := y;
Canvas.Line(x-20,y,x+20,y);
Canvas.Line(x,y-20,x,y+20);
end;
另外可以参好一下帖子:
http://www.csdn.net/expert/topic/96/96884.shtm