| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Почему не работает вот такая фигня: if timeover = 10 then ; ; ;label1.color:=clred;?????? [D5, WinME]
snoup © (2002-03-26 23:47:00)Почему не работает вот такая фигня: if timeover = 10 then label1.color:=clred;??????
snoup (2002-03-27 08:56:00) [1]Спасибо
Adder (2002-03-27 01:07:00) [2]опечатка :( Должно быть так:
// выключим таймер, если больше не нужен
Timer1.Enabled:=False;
Adder (2002-03-27 01:04:00) [3]У компонента Timer должны быть установлены свойства (можно установить в Object Inspector) Enabled:=true; Interval:=10000;
или в RunTime:
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:=10000;
Timer1.OnTimer:=Timer1Timer;
Timer1.Enabled:=True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Color:=clRed;
// выключим таймер, если больше не нужен
Timer.Enabled:=False;
end;
snoup (2002-03-26 23:59:00) [4]У меня что то не получается! А можно еще раз и поточнее!
MBo (2002-03-26 23:54:00) [5]первый раз слышу
Keymaster (2002-03-26 23:53:00) [6]имхо это не совсем так надо...
ставишь нужный интервал таймеру и в time1r.timer пишешь
label1.color:=clred;
snoup (2002-03-26 23:51:00) [7]Ну это у TTimer есть такое вот полностью:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if TimeOver = 10 then
Label1.color := clRed;
end;
end.
А вообше в хелпе это как бы по истечению 10 сек
MBo (2002-03-26 23:48:00) [8]timeover ??????
| |
