Image и Timer

[Lex]

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

[Сергей Плоткин]

В событии OnTimer компонента TTimer со свойством Interval, установленном в 5000:

If Image1.Visible then begin   Image1.Hide;   Image2.Show; end else begin   Image2.Hide;   Image1.Show; end;

Изменено 9 декабря, 2004 пользователем Сергей Плоткин

[Shurr]

Положи на форму таймер, поставь ему 5-ти секундный интервал, добавь переменную, отвечающую за номер видимой картинки, а в обработчик таймера поставь что-то типа такого:

if (ActiveImageNum = 0) then

begin

ActiveImageNum := 1;

Image2.Visible := true;

Image1.Visible := false;

end else

begin

ActiveImageNum := 0;

Image2.Visible := false;

Image1.Visible := true;

end;

Или загони обе картинки в массив:

...

var

ImageArray: array[0..1] of TImage;

ActiveImageNum: integer;

...

//инициализация

ImageArray[0] := Image1;

ImageArray[0] := Image2;

ActiveImageNum := 0;

...

//обработчик

ImageArray[ActiveImageNum].Visible := False;

ActiveImageNum := ActiveImageNum XOR 1;

ImageArray[ActiveImageNum].Visible := True;

P.S. Черт, все форматирование вылетает. Кто-нибудь знает, как здесь вставить неразрывный пробел?

Добавлено : [mergetime]1102589152[/mergetime]

Сергей Плоткин

Мда, а про If Image1.Visible then я что-то не подумал...

[Сергей Плоткин]

Shurr

2 каких-то диких ;) варианта...

Черт, все форматирование вылетает. Кто-нибудь знает, как здесь вставить неразрывный пробел?

Используй код [cоde]код[/cоde]

Изменено 9 декабря, 2004 пользователем Сергей Плоткин

[Shurr]

Сергей Плоткин

2 каких-то диких  :)  варианта...

Первый - согласен, в свете твоего просто рак. ;)

Второй - придуман из расчета на N картинок.

[Lex]

Спасибо, оказывается всё просто, как два пальца. . . ;)