wozu denn das weiterzählen selber übernehmen?
Delphi-Quellcode:
case Pos of
0 : begin
button1.Top := 120;
button1.Left := 8;
end;
1 : begin
...
end;
...
4 : begin
...
end;
end;
Pos := (Pos + 1) mod 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
pos := 0;
end;
oder in "länger" (für 1 bis 5)
Delphi-Quellcode:
case Pos of
..
end;
Inc(Pos);
if Pos > 5 then Pos := 1;
oder
Delphi-Quellcode:
case Pos of
..
end;
if Pos < 4 then Inc(Pos)
else Pos := 1;
oder
oder
oder
...