Вывод изображений с задержкой.

[hk47]

Всем привет.
Моя программа должна после нажатия на кнопку отобразить через 1-2 секунды изображение в компоненте Image1, а через 4-5 секунд в компоненте Image2.
Я пробовал юзать sleep:

sleep(1000);
Image1.Picture.LoadFromFile('1.bmp' );
sleep(2000);
Image2.Picture.LoadFromFile('2.bmp' );

Но получается что картинки выводятся через 1000 милисекунд, а не так как нужно.
Как это можно сделать?
Я слышал что можно юзать таймер. Но он вообще не канает тут.

[Жека-старший]

Добавь на форму таймер
i- глобальная переменная

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
 if i=3 then Image1.Picture.LoadFromFile('1.bmp' );
 if i=6 then Image2.Picture.LoadFromFile('2.bmp' );
end;

[hk47]

Тймер я кину.
А какие параметры ставить у него.
Интервал и Enabled?

[Жека-старший]

ничего не ставь... пусть стандартно будет
Enabled не надо... она вкл\выкл таймер

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
 if i=3 then Image1.Picture.LoadFromFile('1.bmp' );
 if i=6 then begin
          Image2.Picture.LoadFromFile('2.bmp' );
          Timer1.Enabled:=false;
                 end;
end;

можно так

[Жека-старший]

Вот пример. Только я сразу, не загружая через секунды картинку поставил

[hk47]

спасибо. прикольно.
теперь я сам подумаю как это с кнопкой. связать.
благодарю вас.

[Жека-старший]

Всегда пожалуйста.

[Жека-старший]

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled:=false;
  Image1.Visible:=false;
  Image2.Visible:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 inc(i);
 if i=3 then Image1.Visible:=true;
 if i=5 then begin
          Image2.Visible:=true;
          Timer1.Enabled:=false;
             end;
end;

[Жека-старший]

типа при старте формы, мы таймер выключаем. А при нажатии на кнопку включаем. и все.

[hk47]

Спасибо. я понял