Image and timer

[Vladnet]

народ помогите мне плиз!!
как с помощью таймера организовать смену картинок на форме !!
если не составит труда напишите код! буду благодарен

[INVAZIA]

Можно сделать так

var
   sec:integer;
.................

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   sec:=sec+1;
   if sec=5
      then
      Image1.Visible:=True;
   if sec=10 then
    begin
    Image1.Visible:=False;
    Image2.Visible:=True;
    end;
end;

Ну и так далее )

[Vladnet]

А как допустим кинуть 3 картнки на форму?
а то я кидю и первая заменяет вторую...

[INVAZIA]

Возьмите 3 компонента TImage. В каждый компонент загрузите картинку, да и еще поставьте свойство Visible=False у всех TImage. Ну и пишите следующее

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   sec:=sec+1;
   if sec=5
      then
      Image1.Visible:=True;
   if sec=10 then
    begin
    Image1.Visible:=False;
    Image2.Visible:=True;
    end;
    
    if sec=15 then
    begin
    Image2.Visible:=False;
    Image3.Visible:=True;   
  

end;

[Vladya]

А не лучше будет, если в один и тот же имейдж загружать картинки? Просто когда придет время что бы в имейдже менялась картинка?

[Vladnet]

Vladya а как вставлять или загружать в 1один image картинки
напиши код пожалуйста!!

[Terran]

К примеру можно сделать так:

Uses
   Jpeg;
Var
K: Integer;
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Image1.Picture.LoadFromFile(IntToStr(K)+'.jpg');
K:=K+1;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
K:=0;
End;

Только при отсутствии картинок будут ошибки, поэтому чтобы их избежать можете сделать проверку на существование файла или поставить оператор Try ... Except...End; (Картинки должны находится в одном каталоге с программой и их имена должны быть 0.jpg, 1.jpg и т.д.)

[Vladya]

Ну вот, позновато я зашол, но код уже есть, так что вперед за орденами, да Terran насчет проверки мне кажеться, она здесь не обязательно нужна, что бы парень не заморачивался, тем более если он точно знает что все картинки присуцтвуют, хотя эт не мне решать, ну и кажеться не вам...

[Vladnet]

Terran! Сделал как ты написал жму ран и шибка:Picture выделяет! [Error] Unit1.pas(30): Missing operator or semicolon
(картинки я распакавал в папке где сидят файлы проекта)

[Пепел Феникса]

[Error] Unit1.pas(30): Missing operator or semicolon

это значит что ты пропустил точку с запятой (;)
обычно в предыдущей строке