Перейти к содержанию
СофтФорум - всё о компьютерах и не только

Image и Timer


Рекомендуемые сообщения

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

Ссылка на комментарий
Поделиться на другие сайты

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

If Image1.Visible then begin   Image1.Hide;   Image2.Show; end else begin   Image2.Hide;   Image1.Show; end;
Изменено пользователем Сергей Плоткин
Ссылка на комментарий
Поделиться на другие сайты

Положи на форму таймер, поставь ему 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]

Изменено пользователем Сергей Плоткин
Ссылка на комментарий
Поделиться на другие сайты

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

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

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

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

Ссылка на комментарий
Поделиться на другие сайты

Гость
Эта тема закрыта для публикации ответов.
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...