Cita:
Empezado por José Luis Garcí
Por curiosidad como lo solucionaste, podrías poner algo de código, aunque sea comparativo.
|
Bueno me fui por lo mas facil que se me ocurrio... Quite la animacion, y preferi agregar una Timagen y generar el cambio de imagenes a traves de los Timer, en mi caso 2, uno para generar un conteo cada cierto tiempo, y el otro para que en ese conteo me cambiara la imagen
El codigo, algo asi:
procedure TFormrotametrollave.Timer_conteoTimer(Sender: TObject);
begin
Xf:=Xf+1;
if (Xf=9) then
begin
Xf:=0;
end;
end;
procedure TFormrotametrollave.Timer_imagenesTimer(Sender: TObject);
begin
if (Xf=0) then
begin
Image1.Picture.LoadFromFile('giro_rotam\01.jpg');
end;
if (Xf=1) then
begin
Image1.Picture.LoadFromFile('giro_rotam\02.jpg');
end;
if (Xf=2) then
begin
Image1.Picture.LoadFromFile('giro_rotam\03.jpg');
end;
if (Xf=3) then
begin
Image1.Picture.LoadFromFile('giro_rotam\04.jpg');
end;
if (Xf=4) then
begin
Image1.Picture.LoadFromFile('giro_rotam\05.jpg');
end;
if (Xf=5) then
begin
Image1.Picture.LoadFromFile('giro_rotam\06.jpg');
end;
if (Xf=6) then
begin
Image1.Picture.LoadFromFile('giro_rotam\07.jpg');
end;
if (Xf=7) then
begin
Image1.Picture.LoadFromFile('giro_rotam\08.jpg');
end;
end;