Muy bueno el ejemplo, pero la última parte me gusta menos... ¿qué tal esto?
Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i := (i+1) mod length(ImageArray);
Image1.Picture.LoadFromFile(ImagePath + ImageArray[i]);
end;
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|