如何实现image控件有鼠标移出显示一张图片，鼠标移入是另外一张图片

Question

如题
谢谢！问题解决后立即给分

Answer 1

只用image控件了，帮我写vcl？谢谢！
第一次上这里就遇见好人了：）
运气不错！

Answer 2

晕，原来也有和我遇到一样问题的朋友在VB里好搞，在DELPHI里死活它就不依我，TNND

Answer 3

http://expert.csdn.net/Expert/topic/2972/2972444.xml?temp=.4843714

Answer 4

你可以定义两个消息 OnMouseEnter 和  OnMouseLeave  
 然后再对应的代码段填写切换图片的代码

Answer 5

我这里是放了四个image有四个过程
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Visible := true;
  image2.Visible := false;
  image3.Visible := false;
  image4.Visible := false;
end;procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Visible := False;
  image2.Visible := True;
  image3.Visible := false;
  image4.Visible := false;
end;procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Visible := False;
  image2.Visible := false;
  image3.Visible := True;
  image4.Visible := false;
end;procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Visible := False;
  image2.Visible := false;
  image3.Visible := false;
  image4.Visible := True;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Visible := False;
  image2.Visible := false;
  image3.Visible := false;
  image4.Visible := False;
end;