Timer - ajastetut tapahtumat
Lisätään
vaikkapa aluksi auton kuva, joka ajaa ruudun vasemmasta laidasta oikeaan
laitaan.
- 1.
- Lisää Image-komponentti
ruudun vasempaan alalaitaan (löytyy additional
sivulta).
- 2.
- tuplaklikkaa Image- komponenttia ja lataa siihen vaikkapa kuvaksi
hauto.bmp.
- 3.
- nyt kannattaa laittaa AutoSize-
ominaisuus päälle
- 4.
- vaihda komponentin nimeksi vaikkapa ImageHA.
Jotta auton kuva liikkuisi, pitäisi ImageHA- olion paikkaa
muuttaa tietyn välein. Tietyn aikavälein tapahtuvia tapahtumia
saadaan Timer- komponentilta.
- 1.
- Lisää lomakkeelle mihin tahansa kohtaan Timer-
komponentti (löytyy system sivulta). Paikalla ei ole väliä,
koska komponentti EI ole näkyvissä ohjelman ajon aikana.
- 2.
- vaihda nimeksi vaikkapa TimerHA
- 3.
- vaihda tapahtumaväliksi
esim 100 (=100 ms).
- 4.
- tuplaklikkaa ajastinta ja lisää koodi- ikkunaan koodi:
procedure TAutolaskuri.Timer1Timer(Sender: TObject);
begin
ImageHA.Left := ImageHA.Left + 1;
end;
- Muuta ohjelmaa siten, että auton kuva kulkee ruudussa edestakaisin.