¿Como hacer una secuencia de imagenes?

[[nlsgarcia]]

viejinho,

Empezado por viejinho

...¿Como hacer una secuencia de imágenes?...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  ImagePath : String = 'D:\NASA\NASA Universe-5\';
  ImageArray : Array[0..4] of String = ('Universe-1.jpg','Universe-2.jpg','Universe-3.jpg','Universe-4.jpg','Universe-5.jpg');

var
  Form1: TForm1;
  i : Byte = 0;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Image1.Center := True;
   Image1.Stretch := True;
   Image1.Picture.LoadFromFile(ImagePath + ImageArray[0]);
   Timer1.Interval := 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if i < High(ImageArray) then
   begin
      Image1.Picture.LoadFromFile(ImagePath + ImageArray[i+1]);
      Inc(i);
   end   
   else
   begin
      i := 0;
      Image1.Picture.LoadFromFile(ImagePath + ImageArray[i]);
   end;
end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, Visualiza una secuencia de imágenes en intervalos de un segundo, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.