Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

snoup © (2002-03-26 07:49:00)
Как сделать так, что бы например по истечению 10 сек. происходило кокоето событие (пример имеется ввиде TTimer)

panov (2002-03-26 12:39:00) [1]
>Andron (26.03.02 11:26)
Лучше так-):

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

Andrey007 (2002-03-26 11:52:00) [2]
2Andron:
И у Вас это работает??? Мне кажется, что Counter должна быть глобальной переменной, и лучше сделать её начальную инициализацию.

Andron (2002-03-26 11:26:00) [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;

Anatoly Podgoretsky (2002-03-26 08:03:00) [4]
Timer1.Interval := 10000;

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

MBo (2002-03-26 07:53:00) [5]
ну раз про таймер знаешь, что спрашиваешь?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »