Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Image через Timer

Автор: AlexSn 9.12.2004, 13:16

На форме две картинки. Нужно чтоб они поочерёдно показывались пока форма открыта, например с интервалом 5000 ms. Заранее благодарен.

Автор: Pakshin A. S. 9.12.2004, 13:22

Делаем ONTimer

Код


Image1.visible:=not Image1.Visible;
Image2.Visible:=not Image2.Visible;

OnCreate

Код


Image1.Visible:=true;
Image2.Visible:=false;

Вроде так, или я не понял вопроса... smile

Автор: Vladimir13 9.12.2004, 13:25

присваеваешь номера 1 и 2 картинкам, потом на onTimer чередуешь картинки. Проверяешь, если i=1 то картинка1, i:=0, выход из onTimer"а. если i=0 то картинка2 и i:=1.

Автор: geckelberryfinn 9.12.2004, 13:26

Ну установи интервал таймера =5000 ms и в коде меняй видимость объекта PaintBox или что ты там используешь. Например так:

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
pbPaintBox1.visible:=true;
pbPaintBox2.visible:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
pbPaintBox1.Visible:=Not pbPaintBox1.Visible;
pbPaintBox2.Visible:=Not pbPaintBox2.Visible;
end;

Хотя я опоздал - уже написали....

Автор: AlexSn 9.12.2004, 14:04

Всё работает!

Автор: SlaUr 9.12.2004, 14:40

Если картинка не меняется-вставьте в таймере Application.ProcessMessages;

Автор: Pakshin A. S. 9.12.2004, 17:23

Не важно... работать будет так же...