Главная страница
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.025 c
14-29017
denis24
2003-01-23 10:33
2003.02.10
печать на принтер


1-28773
Chizh
2003-01-16 22:58
2003.02.10
Подскажите, plz, как скопировать файлы из буфера обмена


1-28711
ST
2003-01-31 15:42
2003.02.10
TWebBrowser: сорнанение HTML кода на диск.


3-28592
AM
2003-01-24 16:15
2003.02.10
Помогите составить запрос...


1-28774
Saracin
2003-02-01 15:20
2003.02.10
Печать картинки и текста из TEdit