Показать сообщение отдельно
Старый 12.11.2009, 21:00   #4
Местный
 
Регистрация: 05.11.2008
Сообщений: 168
Сказал Спасибо: 35
Имеет 139 спасибок в 66 сообщенях
Fer123 пока неопределено
По умолчанию

TTimer этой таймер
Твой скрипт должен выглядеть так
DELPHI Код:
var timer:TTimer; procedure Init; begin   timer:=TTimer.Create(nil);   timer.OnTimer:=@OnTimer;   timer.enabled:=true;   timer.interval:=700; //время задержки в мсек end; procedure OnTimer(Sender: TObject); begin //Здесь твой скрипт end; begin end.
Fer123 вне форума   Ответить с цитированием