Задержка с помощью timer.Enabled

[tisha077]

Нужно сделать цикл, в котором через определенное время (3-5сек) будут отображаться картинки, при нажатии на которые воспроизводятся соответствующие звук-файлы.

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=true;  //активируем таймер
i:=1;
if timer1.Enabled then
   begin
     for i:=1 to 5 do //цикл по 5-ти картинкам
       begin
        j:=(inttostr(i)+'.jpg');//формируем назв. картинки
        image1.Picture.LoadFromFile(j);//загружаем картинку
       {if image1.OnClick then} <---как тут описать "при нажатии"???
           begin
             s:=(inttostr(i)+'.wav');//формируем назв. звук-файла
             MCISendString(PChar('play ' + s),nil,0,0);//воспроизводим звук
             end;
      timer1.Enabled:=false; //дезактивируем таймер
     end;
   end;
end;

При запуске видно только последнюю картинку и воспроизводятся все звуки сразу... подскажите в чем проблема.

У нас принято оформлять код специальным тэгом - кнопочка "#".
И не нужно "истерить" множеством восклицательных знаков и огромными шрифтами.
Модератор

[mihali4]

В процедуре FormCreate еще не видна даже форма, поэтому там делают только подготовительные операции.
А если вы хотите организовать некие визуальные эффекты, используйте событие OnShow.
Но при таком использовании таймера, как у вас, ничего не изменится.
Нужно:
1. Отобразить первую картинку
2. Запустить таймер
3. Запустить проигрывание первого звука
4. По срабатыванию таймера дезактивировать его.
5. Выключить первый звук.
6. Повторить пп 1-5 для остальных картинок и звуков.

[tisha077]

"5. Повторить пп 1-5 для остальных картинок и звуков"

повторять так же через for или другим методом?

[mihali4]

For - это и есть цикл для перебора картинок и звуков.
Я описал алгоритм тех операций, которые находятся внутри цикла.

[tisha077]

у меня примерно 100 картинок. Если их все так прописывать то программа окажется неимоверно большой, если вы это имеете ввиду.
Сделал в той последовательности что вы говорили:

i:=1;
   begin
     for i:=1 to 2 do
      begin
        j:=(inttostr(i)+'.jpg');
        image1.Picture.LoadFromFile(j);
        timer1.Enabled:=true;
           begin
             s:=(inttostr(i)+'.wav');
             MCISendString(PChar('play ' + s),nil,0,0);
           end;
       timer1.Enabled:=false;
     end;
end;

ничего не изменилося

а какое правильное использование таймера? и как написать "При нажатии на изображение"?
просто я уже часа 2 копаюсь на форуме и не чего толком найти не могу.

[mihali4]

у меня примерно 100 картинок

Значит - for i:=1 to 100 do

какое правильное использование таймера?

Смотрим встроенный хэлп по таймеру.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
end;

А в самой процедуре смены картинок вместо Timer1.Enabled := False; пишем:

while Timer1.Enabled do
Application.ProcessMessages;

как написать "При нажатии на изображение"?

Событие Image1Click...

[tisha077]

через событие Image1click не могу, так как у меня всего 1 image, а звуки разные к отображенным файлам изображениям.
Timer1Enebled:=False у меня есть, вот:

var
  Form1: TForm1;
  i:integer; s,j:string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;
   begin
     for i:=1 to 2 do
      begin
        j:=(inttostr(i)+'.jpg');
        image1.Picture.LoadFromFile(j);
        while Timer1.Enabled do
        Application.ProcessMessages;
        if imege1click then
           begin
             s:=(inttostr(i)+'.wav');
             MCISendString(PChar('play ' + s),nil,0,0);
           end;
       timer1.Enabled:=false;
     end;
   end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  timer1.Enabled:=false;
end;
end.

[mihali4]

Timer1Enebled:=False у меня есть

Читаем мой предыдущий пост.
Особенно - выделенное красным...

через событие Image1click не могу, так как у меня всего 1 image, а звуки разные

Но счетчик-то содержит номер картинки...

З.Ы. Ей-богу, впечатление такое, что вы уже голый и торопитесь поскорее убежать в баню...
Внимательнее нужно быть.

[tisha077]

простите я внимательный, может просто не правильно как-то выражаюсь...
я не тороплюсь, я на самом деле над прогой еще с обеда сижу.
если вы обратите внимание на код который я скинул, то заметите что я исправил в точности так как вы и говорили.
счетчик не содержит номер картинки, он формирует название картинки в переменную "j", а затем выводит в image1.
на данный момент главный вопрос это как сделать, чтобы картинки загружались из файла( image1.LoadFromFile(j) друг за другом в интервале 3-5 секунд.

[mihali4]

простите я внимательный, может просто не правильно как-то выражаюсь... я не тороплюсь, я на самом деле над прогой еще с обеда сижу.

Тогда еще раз пост номер 2 - я там тоже красным выделил...

как сделать, чтобы картинки загружались из файла( image1.LoadFromFile(j) друг за другом в интервале 3-5 секунд

Цикл с таймером мы вроде бы организовали (правда только на примере двух картинок - for i:=1 to 2 do у вас).
3 или 5 секунд - это вы задаете в Timer.Interval.
Сотню картинок (да хоть тысячу) перебрать - задайте массив с путями к картинкам. Тогда счетчик цикла будет однозначно определять элемент массива - картинку...