Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

handleri u klasama

[es] :: Pascal / Delphi / Kylix :: handleri u klasama

[ Pregleda: 1147 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

buha18
mali mirkec
vratisinec

Član broj: 57193
Poruke: 161
161.53.76.*



+10 Profil

icon handleri u klasama15.12.2009. u 17:01 - pre 125 meseci
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().??


>>Mirkec<<
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2611



+68 Profil

icon Re: handleri u klasama15.12.2009. u 19:27 - pre 125 meseci
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;



 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: handleri u klasama

[ Pregleda: 1147 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.