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