Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

Запуск по таймеру   Найти похожие ветки 

 
_hunter_   (2003-02-01 15:07) [0]

Здравствуйте.

Есть такой класс:

type THTTPClientThread = class (TThread)
private
protected
procedure Execute; override;
public
function Calc:Extended;
end;
Как сделать чтобы функция Calc запускалась по таймеру?


 
uw ©   (2003-02-01 15:20) [1]


procedure THTTPClientThread.Execute;
var
Timer: TTimer;
begin
Timer := TTimer.Create(nil);
Timer.Interval := YourInterval;
Timer.OnTimer := TimerOnTimer;
Timer.Enabled := True;
try
while NOT Terminated do begin
// Thread does anything
end;
finally
Timer.Free;
end;
end;

procedure THTTPClientThread.TimerOnTimer(Sender: TObject);
var
ext := Extended;
begin
ext := Calc;
end;



Страницы: 1 вся ветка

Текущий архив: 2003.02.10;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
8-28949
dummie
2002-10-25 11:48
2003.02.10
OpenGl, хэндл и ави ;)


1-28856
Noname2
2003-01-30 11:13
2003.02.10
Метка как объект в run-time


14-29084
Шишкин Илья
2003-01-24 21:23
2003.02.10
Помогите найти прогу (или компонент)


7-29134
MSAlex
2002-12-08 15:00
2003.02.10
Floppy


4-29169
VirginKiller
2002-12-28 19:43
2003.02.10
Меню