handleri u klasama

[ buha18 @ 15.12.2009. 17:01 ] @

evo opet problem sa klasama.

Code:

type
k = class
t:TTimer;
procedure z();
end;

procedure k.z();
begin
bla bla
end;

kako napraviti da mi se svakih 1000ms pozove metoda z().??

[ savkic @ 15.12.2009. 19:27 ] @

Podesiš Interval TTimer komponente, dodaš handler za OnTimer event i u njemu pozoveš željenu metodu.

Code:

TTest = class
private
  Timer: TTimer;
  procedure OnTimer(Sender: TObject);
public
  constructor Create;
  destructor Destroy; override;
end;

constructor TTest.Create;
begin
  inherited Create;
  Timer := TTimer.Create(nil);
  Timer.Interval := 1000;
  Timer.OnTImer := OnTimer;
end;

destructor TTest.Destroy;
begin
  Timer.Free;
  inherited Destroy;
end;

procedure TTest.OnTimer(Sender: TObject);
begin
...
end;