Takodje izbegavati Timer za takve stvari ...
Imas komponentu TApplicationEvents ...
Postoji event OnIdle, u njemu imas parametar Done koji postavis na false i dobio si gotovu "petlju" odnosno
aplikacija ce zvati taj event nonstop (kada god ne radi nista drugo - tipa update akcija i sl ... - sto je dosta cesto)
E jedino sto treba da se pobrines je time sinhronizacija ...
Tu mozes da odradis nesto poput
Code:
begin
if (Now-LastFrame)>PetnaestMS then
begin
LastFrame:=Now;
{ ovde odradis animaciju i sve to ... :) }
end;
Done:=false;
end;
LastFrame je TDateTime ...
PetnaestMS je TDateTime i ima vrednost od 15 milisekundi (to ti je za recimo nekih 60tak "frejmova u sekundi" - ovo je pod navodnicim
zato sto nema realne veze sa fps-om nego ima veze sa frekvencijom osvezavanja tvoje simulacije odnosno igre) ...