编程论坛 → Delphi论坛

图片跟着鼠标走，效果惨不忍睹，如何加快图片的跟进速度？

lkdbdlkq 发布于 2006-09-01 07:17， 640 次点击

image1控件里面加入一个400*300的BMP图片，在 onmousemove事件中设置

image1.left:=x;
image1.top:=y;

结果效果惨不忍睹！现在想实现鼠标指到哪里，图片就立即跟到哪里，且鼠标指针始终位于图片的中央，能做到吗？

1 回复

ysp_19842006-09-01 09:39

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image1.Left:=X-image1.Width div 2;
image1.Top:=Y-image1.Height div 2;
end;