我在TImage中放了一个BMP图片，怎样在鼠标移动到TImage上时图片周围产生一个方框，当鼠标离开时方框又消失？

[walkm01]

我在TImage中放了一个BMP图片，怎样在鼠标移动到TImage上时图片周围产生一个方框，当鼠标离开时方框又消失？

我用了以下代码，但是没有作用，只是图片闪了一下：
procedure MouseMove...;
begin
with Image1.Canvas do
begin
MoveTo(1, 1);
LineTo(Image1.width-1, 1);
LineTo(Image1.width-1, Image1.Height-1);
LineTo(1, Image1.Height-1);
LineTo(1, 1);
end;
end;


还有一个问题（另外加分）：怎样在鼠标移动到TImage上时，在TImage的图片的轮廓周围产生阴影效果？

[snowtiger2000]

将TImage放在一个Panel上,充满

在TImage的鼠标事件里,改变Panel的边框和阴影

[outer2000]

楼上的可以，也可以用两幅图片；

[ll_angel]

up snowtiger2000(snowtiger)
好方法！

[sevencat]

mouseenter
mouseleave
一般是响应这两个消息，而不是mousemove

[bluenightsky]

1:mouseenter事件下
with Image1.Canvas do
begin
pen.color:=...;选个颜色吧
pen.width:=2;
MoveTo(1, 1);
LineTo(Image1.width-1, 1);
LineTo(Image1.width-1, Image1.Height-1);
LineTo(1, Image1.Height-1);
LineTo(1, 1);
end;
试一下吧,我没试,不过应该可以呀,但画之前记得保存图片,mouseleave后在load回来
2:你得自画,设置好画笔后,用循环来画线,就刻画出阶梯型阴影效果,当然颜色要设置好

[hjb8000]

如果你的方框不大，可改变鼠标的形状即可！！！

[netlib]

利用image的onmouse事件和form的onmouse事件

[walkm01]

没有成功!
请大家确认成功后再发言,谢谢!!!