Слайд с пролистывание картинок в форме

[Ig.169]

Всем доброго времени суток. Такой вопрос. Как сделать, чтобы на форме менялись картинки каждые 5 секунд? 

[Rusland]

Использовать Image и Timer (Interval=5000).

В чем сложность?

[Ig.169]

В 24.10.2017 в 17:00, Rusland сказал:

Использовать Image и Timer (Interval=5000).

В чем сложность?

Каким образом запихнуть кучу картинок в один TImage? Если можете, приложите пример кода, буду благодарен. 

Изменено 26 октября, 2017 пользователем Ig.169

[Rusland]

var
  Form1: TForm1;
  ind: integer;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ind := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ind := ind + 1;
  if FileExists(System.IOUtils.TPath.Combine(
    System.IOUtils.TPath.GetDocumentsPath, 'picture' + ind.ToString + '.png')) then
  Image1.Bitmap.LoadFromFile(System.IOUtils.TPath.Combine(
    System.IOUtils.TPath.GetDocumentsPath, 'picture' + ind.ToString + '.png'));
end;

 

[Rusland]

Если нужен именно слайдер, то посмотрите на этот компонент Ярослава