Текущий архив: 2002.04.08;
Скачать: 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 вся ветка
Текущий архив: 2002.04.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
