3 respuestas en este tema

[monchito_elroro]

buenas tardes amigos aqui nuevamente con una consulta
saben, tengo tres imagenes png y quisiera saber que procedimiento tendría
que realizar para que estas aparezcan en el form y cambien automaticamente
una a la otra en forma infinita.

Lo mucho que pude hacer es que cambien una a la otra con tres botones
algo así:

delphi

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  image1.Picture.LoadFromFile('frame4.png');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  image1.Picture.LoadFromFile('frame5.png');
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  image1.Picture.LoadFromFile('frame6.png');
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //image3.picture.LoadFromFile('frame4.png');
  //begin
    //image3.Picture.LoadFromFile('frame5.png');
 
  //end;
end;
 
end.

si se dan cuenta el cambio infinito quize hacerlo con un Ttimer pero no se como...


les pido una mano......gracias

[egostar]

Hola

Yo lo haría así:

delphi

var
  indice: integer;
  archivo: string;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (indice < 1) or
     (indice > 4) then
     indice := 1;
  archivo := 'IMG0000'+inttostr(indice)+'.JPG';
  image1.Picture.LoadFromFile(archivo);
  indice := indice + 1;
end;

Asumiendo que tienes 4 imagenes y que tienen una numeración consecutiva.

Salud OS

[Wilson]

Con el siguiente ejemplo solo basta inicializar los tags de los tres TImages a 1, 2, y 3 respectivamente.

delphi

procedure TForm1.Timer1Timer(Sender: TObject);
const
  archivos: array [1 .. 3] of string = ('frame4.png', 'frame5.png',
    'frame6.png');
var
  images: array [1 .. 3] of TImage;
  k: integer;
begin
  images[1] := Image1;
  images[2] := Image2;
  images[3] := Image3;
  for k := low(images) to high(images) do
  begin
    images[k].Picture.LoadFromFile(archivos[images[k].Tag]);
    case images[k].Tag of
      1:
        images[k].Tag := 2;
      2:
        images[k].Tag := 3;
      3:
        images[k].Tag := 1
    end;
  end;
end;

PD : También es recomendable asignar en tiempo de diseño una imagen a cada TImage para que no saque un error de extención de archivo.

[monchito_elroro]

Gracias Amigos...... los probaré y luego les comento.......