|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проблема с Imagelist
Добрый день! Подскажите пожалуйста необходимо сделать смену картинки по времени. Делаю так:
Код:
procedure TForm5.Timer1Timer(Sender: TObject); var Index: integer; //индекс картинки в ImageList begin Label1.Caption:=FormatDateTime('hh:mm:ss',Time); if (Label1.Caption>('06:00:00')) and (Label1.Caption<('22:00:00')) then begin Index:=0; // берем 1-ю картинку и вставляем в Image1 Imagelist1.GetBitmap(Index, Image1.Picture.Bitmap); end; if (Label1.Caption<('06:00:00')) and (Label1.Caption>('22:00:00')) then begin Index:=1; // берем 2-ю картинку и вставляем в Image1 Imagelist1.GetBitmap(Index, Image1.Picture.Bitmap); end; end; |
#2
|
||||
|
||||
ну так сравнивать нужно не текст, а само время
Код:
if (Time > StrToTime('06:00')) and (Time < StrToTime('22:00')) then begin ... end; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
Этот пользователь сказал Спасибо Yurk@ за это полезное сообщение: | ||
demon-sheff (07.08.2013)
|
#3
|
||||
|
||||
И поместить вторую половину в else. Других вариантов то вроде как не наблюдается.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
demon-sheff (07.08.2013)
|
#4
|
|||
|
|||
Спасибо! Тему можно закрывать.
|