请问通过下面的方法实现图象漫游后，如何再在图片上添加图片呢?(200分)

我是通过如下的办法实现图像漫游的

1、新建一工程Project1,在Form1中依次放入Panel1、Panel2和Image1元件,注意Pa nel2和Image1分别在Panel1和Panel2上,再将一Label1元件加入Panel2中,调整Panel1尺寸为适当大小,并修改各元件属性为:

元件
属性名
属性值
Panel1
BevelInner:
bvRaised
BevelOuter: bvNone
BorderStyle: bsSingle
Panel2
Align:
alClient
Image1
AutoSize:
True
Picture:
"Apple.bmp"
Label1
Align:
alClient
Transparent : True

注意:此处Label1的作用不是显示字符,而是利用它响应鼠标消息,如果不用Label1而直接利用Image1的鼠标事件响应,则会由于其OnMouseDown事件的激活与Image1的自身坐标移动事件冲突而使图像发生闪烁甚至不能移动。

2、在implementation后加入变量声明:
origin:Tpoint;
image_left:integer;
image_top:integer;
visa1:Tpoint; (鼠标当前位置相对图像右下角的坐标)
visa2:Tpoint; (鼠标当前位置相对图像左上角的坐标)
canmove:boolean;
编写Label1鼠标响应事件:
procedure TForm1.Label1MouseDown(Sender: TObject; Button
: TMouseButton;S hift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
begin
origin.x:=X;
origin.y:=Y;
image_left:=image1.left;
image_top:=image1.top;
visa1.x:=X-(image1.width-panel2.width+image1.left);
visa1.y:=Y-(image1.height-panel2.height+image1.top);
visa2.x:=X-image1.left;
visa2.y:=Y-image1.top;
canmove:=true;
end;
end;
procedure TForm1.Label1MouseMove(Sender: TObject; Shift:
TShiftState; X, Y: Integer);
begin
if canmove then
begin
if X< visa1.x then X:=visa1.x;
if X>visa2.x then X:=visa2.x;
if Y< visa1.y then Y:=visa1.y;
if Y>visa2.y then Y:=visa2.y;
image1.left:=image_left+(X-origin.x);
image1.top:=image_top+(Y-origin.y);
end;
end;
procedure TForm1.Label1MouseUp(Sender: TObject; Button:
TMouseButton;Shi ft: TShiftState; X, Y: Integer);
begin
canmove:=false;
end;



这个办法虽然可以实现图像漫游,但是当我再想往图片中添加图片的时候,新的Image就会
显示在Panel2上,而开始添加的Image1的图像完全看不到了,不知道怎么样才能在Image1上
显示Image2. 如果在实现了以上效果后能实现可以在Image1的鼠标停留位置显示Image2上那就
更好了~这个是我毕业设计的一个比较重要的环节,请各位大虾帮帮忙吧!!!
谢谢啦~~~~~~~

没有人会吗？

还是题目太长了？

没有看的大懂
你说的在image1上显示image2是什么意思
如果image2比较大的话，image1肯定是看不到了

Image2是比Image1小的

问题是现在有Panel1 Panel2 Image1 Label1四层

再添加Image2 会显示在Panel2层上,这样Image1就一点都看不到了

如何能在可以看到Image1的同时还能看到Image2呢?

你为何不把IMAGE2也显示在Panel1上，有什么原因吗

可以考虑一下图象的贴图次序，哪个图有鼠标消息，再用 image。Bringtofront 使其处于最上层，
这样看可不可以解决