Почему не работает вот такая фигня: if timeover = 10 then label1.color:=clred;??????

← →
snoup (2002-03-26 23:47) [0]

← →
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]

Спасибо

Почему не работает вот такая фигня: if timeover = 10 then label1.color:=clred;?????? Найти похожие ветки