如何实现点击按钮时奖杯图片上下弹跳动画？Delphi开发求助

我想实现庆祝用奖杯图片的上下弹跳动画，尝试用Timer组件，通过取模运算判断奇偶来控制图片位置：计数为奇数时图片上移10单位，偶数时下移10单位，但没能成功实现。怀疑是循环逻辑有问题，是否需要用某种循环？以下是我的代码，没有效果：

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, pngimage, ExtCtrls,math, StdCtrls;

type
  Tfrmwinner = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Image2: TImage;
    Label3: TLabel;
    Label4: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Label4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmwinner: Tfrmwinner;

implementation

uses Unit12,Unit4;

{$R *.dfm}

procedure Tfrmwinner.Label4Click(Sender: TObject);
var
position:integer;
begin
frmwinner.Hide;
frmboard.show;

unit12.frmboard.memlead.Lines.Add('Position'+#9+'Name'+#9+'ID Number');
unit12.frmboard.memlead.Lines.Add('___________________________________');
while not unit4.frmcontest.ADOLead.Eof do
begin
position:=position+1;
unit4.frmcontest.ADOLead.First;
  unit12.frmboard.memlead.Lines.Add(inttostr(position)+#9+unit4.frmcontest.ADOLead['Name(s)']+#9+inttostr(unit4.frmcontest.ADOLead['ID Number']));
  unit4.frmcontest.ADOLead.Next;
end;
end;

procedure Tfrmwinner.Timer1Timer(Sender: TObject);
var
icount,i:integer;
begin

icount:=0;

icount:=icount+1;

if (icount mod 2)=1 then
begin
  image1.top:= image1.top+10;
  image2.top:= image2.top+10;
end;

if (icount mod 2)=0 then
begin
  image1.top:= image1.top-10;
  image2.top:= image2.top-10;
end;

if icount=16 then
begin
  timer1.Enabled:=false;
end;
end;

end.

核心问题分析 #

代码失效的关键原因是**icount是Timer事件内的局部变量**：每次Timer触发时，icount都会被重置为0，然后加1，所以它的值永远是1，只会执行“上移10单位”的分支，永远不会触发偶数分支，也永远达不到16来停止Timer。另外你搞反了上下移动的逻辑：Delphi中控件的Top值越大，位置越靠下，上移应该减少Top值，下移才是增加。

修复步骤 #

1. 将icount改为类的私有成员变量
   在Tfrmwinner类的Private声明中添加变量，让它在Form生命周期内持续保存值：

   type
     Tfrmwinner = class(TForm)
       // ... 原有组件声明 ...
     private
       icount: Integer; // 添加这行
       { Private declarations }
     public
       { Public declarations }
     end;
   

2. 初始化变量并设置Timer间隔
   给Form添加OnCreate事件，初始化变量和Timer触发速度：

   procedure Tfrmwinner.FormCreate(Sender: TObject);
   begin
     icount := 0;
     Timer1.Interval := 100; // 单位毫秒，值越小动画越快，可自行调整
   end;
   

3. 修正Timer事件逻辑
   去掉局部icount声明，使用成员变量，同时纠正上下移动的逻辑：

   procedure Tfrmwinner.Timer1Timer(Sender: TObject);
   begin
     icount := icount + 1;
   
     if (icount mod 2) = 1 then
     begin
       // 奇数：上移，Top值减10
       Image1.Top := Image1.Top - 10;
       Image2.Top := Image2.Top - 10;
     end
     else
     begin
       // 偶数：下移，Top值加10
       Image1.Top := Image1.Top + 10;
       Image2.Top := Image2.Top + 10;
     end;
   
     if icount = 16 then
     begin
       Timer1.Enabled := False;
     end;
   end;
   

额外优化（可选） #

如果想让弹跳逻辑更清晰，可以用方向变量替代奇偶判断：

// 先在Private中添加方向变量
private
  icount: Integer;
  IsMovingUp: Boolean; // 记录当前移动方向
// FormCreate中初始化
procedure Tfrmwinner.FormCreate(Sender: TObject);
begin
  icount := 0;
  IsMovingUp := True;
  Timer1.Interval := 100;
end;
// Timer事件逻辑
procedure Tfrmwinner.Timer1Timer(Sender: TObject);
begin
  if IsMovingUp then
  begin
    Image1.Top := Image1.Top - 10;
    Image2.Top := Image2.Top - 10;
  end
  else
  begin
    Image1.Top := Image1.Top + 10;
    Image2.Top := Image2.Top + 10;
  end;

  icount := icount + 1;
  // 每两次触发切换一次方向
  if icount mod 2 = 0 then
    IsMovingUp := not IsMovingUp;

  if icount = 16 then
    Timer1.Enabled := False;
end;

其他代码问题提示 #

在Label4Click事件中，position变量未初始化，会导致初始值为随机垃圾值，需添加初始化：

procedure Tfrmwinner.Label4Click(Sender: TObject);
var
position:integer;
begin
position := 0; // 添加这行初始化
frmwinner.Hide;
frmboard.show;
// ... 后续代码 ...
end;

内容的提问来源于stack exchange，提问作者Mr Engine