Смена изображений в TImage по таймеру

[Vagabund]

Всего есть 2 изображения .gif
Необходимо, чтобы в Image1 показывались эти 2 изображения по очереди и добавить смену изображения вручную, так же по клику на Image1

[Sciv]

Программировать событие Image1OnClick

[Stilet]

Какое Делфи? Не всякий Image умеет гифки показывать. Возможно в последних версиях Дельф это сделано.

[Vagabund]

Stilet, 2010
Sciv, можно подробнее? Я еще не опытен в работе с делфи

[Kix.IV]

В Delphi 2010(и в XE4) по умолчанию нет компонента для отображения GIF. Для отображения используйте сторонние компоненты\библиотеки. Например - RxLIB, JVCL.

[Stilet]

и в XE4

Что разве еще не прикрутили? Ну и как их называть за это?

[Vagabund]

Решил сделать по другому,вот:

procedure TForm2.Image1Click(Sender: TObject);
begin
image1.Visible:= false;
image2.Visible:= true;
end;

procedure TForm2.Image2Click(Sender: TObject);
begin
image1.Visible:= true;
image2.Visible:= false;
end;

end.

Теперь надо, чтоб картинки появлялись по очереди с интервалом 30 сек

[alextrof94]

что за бред.
берем таймер с интервалом 30*1000 и логическую переменную.

var HzZa4em:boolean;
...
procedure timer1timer(sender:tobject);
begin
 if HzZa4em=true then
 begin
  image1.Visible:= true;
  image2.Visible:= false;
 end else begin
  image2.Visible:= true;
  image1.Visible:= false
 end;
 HzZa4em:=-HzZa4em;
end;

[Vagabund]

alextrof94
Дружище, это еще не бред, а просто незнание делфи.по тихому учусь.
Спасибо

[Vagabund]

Сообщение от alextrof94

HzZa4em:=-HzZa4em;

На этом выдает ошибку