TTimer/fi
From Free Pascal wiki
Jump to navigationJump to searchThe printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
│
English (en) │
suomi (fi) │
français (fr) │
русский (ru) │
TTimer on komponentti, joka Se löytyy komponenttipaletin Standard-välilehdeltä. Se tuo ajastimen, jonka tarkkuus voidaan esittää millisekuntteina. Se perii suurimman osan ominaisuuksistaan TCustomTimer:ltä.
Lähtölaskentaesimerkki.
- Pudota label, shape ja timer komponentit päälomakkeelle (TForm)
- Kaksoisklikkaa tätä Timer1-komponenttia lomakkeella (oletuskäsittelijä: OnTimer luodaan Timer1:lle, lähdekoodieditori avautuu).
- Lisää seuraava lähdekoodi tapahtumakäsittelijään:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := Format('%d sec',[start]);
Dec(start);
if (start < 5) then Shape1.Brush.Color:=clYellow;
if (start < 0) then begin
Timer1.Enabled := False;
Shape1.Brush.Color:=clGreen;
Label1.Caption := 'Finished!';
end;
end;
- Luo lomakkeen Form1 OnCreate-tapahtumakäsittelijä (siirry komponenttimuokkaimen tapahtuman OnCreate-kohtaan ja klikkaa painiketta [...]).
- Täydennä lähdekoodi seuraavasti::
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := 'Countdown calculation';
Timer1.Interval := 1000;
Timer1.Enabled := True;
Label1.Caption := '';
Shape1.Shape := stCircle;
Shape1.Brush.Color:=clRed;
start := 20;
end;
- Siirry lähdekoodieditorissa luokan (Class) TForm1
private
osioon. - Lisää sinne koodi:
start: integer;
- Käynnistä program (painamalla näppäintä F9)
Katso myös