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

handleri u klasama

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

[ Pregleda: 1352 | 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 174 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: 2739



+92 Profil

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


Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
 
Odgovor na temu

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

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

Postavi temu Odgovori

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