Delphi - Timer - ajastetut tapahtumat

Timer - ajastetut tapahtumat

Tehtävä 1.2 Edestakaisin

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;

Tehtävä 1.2 Edestakaisin

Muuta ohjelmaa siten, että auton kuva kulkee ruudussa edestakaisin.