Запуск по таймеру [D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]
_hunter_ © (2003-02-01 15:07:00)
Здравствуйте.
Есть такой класс:
type THTTPClientThread = class (TThread)
private
protected
procedure Execute; override;
public
function Calc:Extended;
end;
Как сделать чтобы функция Calc запускалась по таймеру?
uw (2003-02-01 15:20:00) [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;
Наверх 
ЧАТ |
Орешник |
|
