Главная страница
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.03 c
3-28637
AlexAlex2
2003-01-22 15:33
2003.02.10
Редактируемый Grid с помощью компонентов dbExpress


14-28998
Случайный прохожий
2003-01-26 22:42
2003.02.10
Кто, что об этом думает?


3-28634
Наташа
2003-01-23 13:15
2003.02.10
Отчеты


1-28874
Fishka
2003-01-30 15:49
2003.02.10
Win Xp и QuickReport - ???


14-29039
msoftware
2003-01-23 09:15
2003.02.10
Помогите найти