哪位仁兄有图片根着鼠标走的代码能否共享一下？万分感谢！

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image1.Left:=x;
image1.Top:=y;
end;

我补充一点，楼上的那样不好看，应该看看image1的大小，减去相应的，图片中心就会在你的鼠标上了

2楼的对于图片占用内存小点的还好处理，如果对于一个庞大的图片，真是惨不人堵啊！哈哈

如果真的是向一些地图导航那样

我想是不是放在缓冲里面当移动的时候，根据ClientRect取得相应的X, Y值在该图片上的X, Y

进行触发ONMouseDown事件。最好不要触发OnMouseMove事件。因为现在好像我所见到的地图导航的至少B/S结构下的都不是OnMouseMove事件。