一个简单的图片变换的问题。等于是送分了

Question

form中有二个图片
img1: TImage;
img2: TImage;我想让img1在鼠标移到它范围内的时候它的图变成img2，在鼠标移出的时候又变回img1原来的图。请大家教教我如何实现方法越多越好呀。谢谢

Answer 1

分别响应Image,Form的OnMouseMove事件

Answer 2

分别响应TImage的OnMouseEnter及OnMouseLeave.
定义两个全局变量用于存储img1，img2中的图片
procedure TForm1.Form1Create(Sender: TObject);
begin
  pic1 := Image1.Picture; 
  pic2 := Image1.Picture; 
end;procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
  Image1.Picture := pic2;
end;procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
  Image1.Picture := pic1;
end;

Answer 3

添加3个TImage,Image3跟Image1保存的图片相同。procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Picture:=Image2.Picture;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Picture:=Image3.Picture;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Image3.Visible:=False;
  Image3.Picture:=Image1.Picture;
end;