1 (edited by adiziktdy 2019-03-19 10:54:49)

Topic: [Решено] Слайд-шоу из множества фото в папке на диске (LinkFolder)

Всё работает, за исключением таймера. Нет остановки после каждого изображения, только после последнего, находящегося в папке.
Если раскомментировать имя выводимого файла:

          ShowMessage(SL[i]);
          Form1.Image1.Picture.LoadFromFile(SL[i]);

то да, можно увидеть каждое изображение. Но так не есть хорошо. Изображений может быть много.


Проект  во вложении.

Помогите с решением, пожалуйста.

Post's attachments

Attachment icon Example.rar 444.25 kb, 279 downloads since 2019-03-18 

Yana

Re: [Решено] Слайд-шоу из множества фото в папке на диске (LinkFolder)

Таймер работает в таком виде:

procedure OnTimer (Sender: TObject);
var
Tag: integer;
begin
with Timer do
begin
  Form1.Image1.Picture.LoadFromFile(SL[i]);
  i:=i+1;                                                      //счетчик файлов в массиве
  if i>c then
  begin
   Timer.Enabled :=False;
   SL.Free;
   MessageBox('Слайд-шоу завершено','ИНФОРМАЦИЯ',MB_ICONINFORMATION);
     end;
  end;
end;
Yana