Hola jask2007.
Supongo que queres secuenciar una serie de imágenes que representan un movimiento.
Como para aportarte una idea, podrías hacer:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
FNombres: array of string; procedure CargarNombres(Ruta: string);
public
end;
var
Form1: TForm1;
implementation {$R *.dfm}
uses JPeg;
procedure TForm1.CargarNombres(Ruta: string);
var
SR: TSearchRec;
n: Integer;
begin
if FindFirst(Ruta+'*.JPG',$FF,SR) = 0 then begin
n:= 0;
repeat
SetLength(FNombres,n+1);
FNombres[n]:= Ruta+SR.Name;
Inc(n);
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
CargarNombres('C:\Imágenes\');
Image1.Stretch:= True;
Timer1.Interval:= 10; Timer1.OnTimer:= Timer1Timer;
Timer1Timer(Self);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
Nom: string;
begin
Nom:= FNombres[Random(Length(FNombres)-1)];
Image1.Picture.LoadFromFile(Nom);
end;
end.
Un saludo.