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

Как сделать так, что бы например по истечению 10 сек. происходило кокоето событие (пример имеется ввиде TTimer)   Найти похожие ветки 

← →
snoup ©   (2002-03-26 07:49) [0]

Как сделать так, что бы например по истечению 10 сек. происходило кокоето событие (пример имеется ввиде TTimer)

---

← →
MBo ©   (2002-03-26 07:53) [1]

ну раз про таймер знаешь, что спрашиваешь?

---

← →
Anatoly Podgoretsky ©   (2002-03-26 08:03) [2]

Timer1.Interval := 10000;

Он у них в мсеках

---

← →
Andron   (2002-03-26 11:26) [3]

В примере показано, как каждые 10сек. Label1.Visible:=false;
Timer1.Interval := 1000;

procedure TForm1.Timer1Timer(Sender: TObject);
var
Counter :integer;
begin

inc(Counter);
case Counter of
1:begin
Label1.Visible:=true;
end;
10:begin
Label1.Visible:=false;
end;
11: Counter:=0;

end;//case
Label1.Refresh;
end;

---

← →
Andrey007   (2002-03-26 11:52) [4]

2Andron:
И у Вас это работает??? Мне кажется, что Counter должна быть глобальной переменной, и лучше сделать её начальную инициализацию.

---

← →
panov ©   (2002-03-26 12:39) [5]

>Andron (26.03.02 11:26)
Лучше так-):

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Visible := not Label1.Visible;
end;

---

Страницы: 1 вся ветка

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



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