TTimer/fi
From Free Pascal wiki
Jump to navigationJump to search
│
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