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

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

← →
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 должна быть глобальной переменной, и лучше сделать её начальную инициализацию.

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

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

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