Текущий архив: 2002.04.08;
Скачать: CL | DM;
Вниз
Почему не работает вот такая фигня: if timeover = 10 then label1.color:=clred;?????? Найти похожие ветки
← →
snoup © (2002-03-26 23:47) [0]Почему не работает вот такая фигня: if timeover = 10 then label1.color:=clred;??????
← →
MBo © (2002-03-26 23:48) [1]timeover ??????
← →
snoup © (2002-03-26 23:51) [2]Ну это у TTimer есть такое вот полностью:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if TimeOver = 10 then
Label1.color := clRed;
end;
end.
А вообше в хелпе это как бы по истечению 10 сек
← →
Keymaster © (2002-03-26 23:53) [3]имхо это не совсем так надо...
ставишь нужный интервал таймеру и в time1r.timer пишешь
label1.color:=clred;
← →
MBo © (2002-03-26 23:54) [4]первый раз слышу
← →
snoup © (2002-03-26 23:59) [5]У меня что то не получается! А можно еще раз и поточнее!
← →
Adder © (2002-03-27 01:04) [6]У компонента 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;
← →
Adder © (2002-03-27 01:07) [7]опечатка :( Должно быть так:
// выключим таймер, если больше не нужен
Timer1.Enabled:=False;
← →
snoup © (2002-03-27 08:56) [8]Спасибо
Страницы: 1 вся ветка
Текущий архив: 2002.04.08;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.015 c
