如何利用image作一个动画按钮?100分

Question

onmousemove等于换image图片
image图片等于带影子

Answer 1

一种方案，仅供参考。
你可能需要三张图片：
1、当鼠标不在TImage控件上时显示的，这一张可能应该用灰色且没有阴影的；
2、当鼠标在TImage控件上，但没有点击时显示的，这一张可能应该用彩色且有阴影的；
3、当鼠标在TImage控件上，且点击时显示的，这一张可能应该用彩色且没有阴影的；你新建一个工程，在Form1上放置一个TImage控件，将“1.bmp”调入控件Image1中。然后参照下面的代码：
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Picture.LoadFromFile('C:\1.bmp');
end;procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Picture.LoadFromFile('C:\2.bmp');
end;procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Picture.LoadFromFile('C:\3.bmp');
end;procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Picture.LoadFromFile('C:\2.bmp');
end;以上代码仅仅是演示了大致的流程，并没有优化。