Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c