主题：新手求救：图片跟着鼠标走，效果惨不忍睹，如何加快图片的跟进速度？
lkdbdlkq
[专家分：0] 发布于 2006-09-01 07:23:00
image1控件里面加入一个400*300的BMP图片，在 onmousemove事件中设置
image1.left:=x;
image1.top:=y;
结果效果惨不忍睹！现在想实现鼠标指到哪里，图片就立即跟到哪里，且鼠标指针始终位于图片的中央，能做到吗？
回复列表 （共3个回复）
沙发
gongchengh [专家分：390] 发布于 2006-09-01 11:22:00
这个很简单呀!
你在窗体的onMouseMove上添加
image1.left:=x;
image1.top:=y;
然后在 imgae1的onMouseMove里添加
image1.Left:=image1.Left+x;
image1.Top:=image1.Top+y;
就可以了,当然了 你最好用一个时钟控件,不然可能执行速度太快而使得图片闪烁.
板凳
gongchengh [专家分：390] 发布于 2006-09-01 11:26:00
如果要求在图片中间的话 那么就是
image1.Left:=image1.Left+x - image1.width div 2;
image1.Top:=image1.Top+y - image1.height div 2;
3 楼
lkdbdlkq [专家分：0] 发布于 2006-09-01 12:29:00
解决问题，非常非常感谢！
我来回复
您所在位置：