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

lkdbdlkq 发布于 2006-08-28 08:11， 601 次点击

4 回复

ysp_19842006-08-28 11:22

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

mercyblitz2006-09-02 09:27

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

volte2006-09-02 10:17

以下是引用ysp_1984在2006-8-28 11:22:48的发言：
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image1.Left:=x;
image1.Top:=y;
end;

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

volte2006-09-02 10:24

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

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

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