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

Question

我在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的图片的轮廓周围产生阴影效果？

Answer 1

将TImage放在一个Panel上,充满在TImage的鼠标事件里,改变Panel的边框和阴影

Answer 2

up snowtiger2000(snowtiger)
好方法！

Answer 3

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

Answer 4

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:你得自画,设置好画笔后,用循环来画线,就刻画出阶梯型阴影效果,当然颜色要设置好

Answer 5

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