Показать сообщение отдельно
Старый 20.05.2009, 00:34   #404
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

Сначало надо обьявить переменную типа TTimer глобально, на весь скрипт:

Код:
var
   Timer01: TTimer;
Далее в процедуре Init, что вызывается при запуске скрипта, надо (грубо говоря) выделить таймеру память и задать начальные параметры:

Код:
procedure Init;
begin
   Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
   Timer01.enabled:=true; //начальное положение включен(true)/выключен(false)
   Timer01.interval:=500; //интервал(в милисекундах) как часто таймер срабатывает
end;
После этого надо написать процедуру
Код:
procedure OnTimer01(Sender: TObject);
begin
//тут набор команд, которые будут
//выполняться каждый раз, когда таймер сработает
end;
Более подробно можно прочесть в книжках по ObjectPascal.

Последний раз редактировалось QaK, 21.05.2009 в 09:27.
J-Fobos вне форума   Ответить с цитированием
За это сообщение J-Fobos нажился 7 спасибками от: