einfache Animation

[alfold]

Schau mal Du startest den Timer in Buttoncklick, nach durchlauf der Forschleife beendest Du den Timer. Ich fürchte, der hat gar keine Zeit was zumachen
Und Dein Timer setzt i immer wieder auf 0

Delphi-Quellcode:

var
  Form1: TForm1;
  ende,Ziel,i,a: integer;//<--Bitte keine globalen Variablen
  implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
   Image1.Visible:=false;
   Image2.Visible:=false;
   Image3.Visible:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   i:integer;//<--Warum wenn Du i nicht benutzt
begin
   Timer1.Enabled:=true;//<--- Strart Timer
   Timer1.Interval:=100;
   Ziel:=strtoint(Edit1.Text);
   for a:=0 to Ziel do begin
   Ende:=Ende+1;
   if Ende=Ziel then
   begin
      Timer1.Enabled:=false;//---Stop Timer
   end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
   i: Integer;
begin
   erg:=0;
   i:=0;//<-- i wird bei jedem durchlauf 0
   inc(i);//ok
   case i of//<--- bleibt also immer 1
        1: begin
              Image1.Visible := True;
              Image2.Visible := False;
              Image3.Visible := False;
           end;
        2: begin
              Image1.Visible := False;
              Image2.Visible := True;
              Image3.Visible := False;
           end;
        3: begin
              Image1.Visible := False;
              Image2.Visible := False;
              Image3.Visible := True;
              i:=0;
           end;
     end;
end;

initialization
i := 0;
end.

alfold