Faire Bouger Une ShapeRésolu

Question

Bonjour Tout Le Monde, voila , j'ai un cercle qui est positionné a un certain endroit et j'aimerais que lorsque l'on clique sur le bouton il se Déplace TRANQUILEMENT vers un certain point d'arrivé ( en utlilisant une boucle ou autre)....en ce moment je suis capable de le faire changer de position mais l'ordinateur est tellement rapide que on dirait tout simplement un redraw...j'aimerais que l'on puisse voir la trajectoire. Exemple le cercle commence a 50,50 et que while i < 50 do 
Cercle.Left + 1;
Cercle.Top +1;
Inc(i);
mais comme dit plus haut...le changement est instantané.

Merci de votre aide

Bacterius · Accepted Answer

while I < 50 do
 begin
  Cercle.SetBounds(Cercle.Left + 1, Cercle.Top + 1, Cercle.Width, Cercle.Height);
  sleep(1);
  Application.ProcessMessages;
 end;

L'utilisation de SetBounds est plus avantageuse que de changer Left et Top à la suite. Dans le premier cas, on ne redessine qu'une fois, et dans l'autre, on redessine le TShape 2 fois 

Cordialement, Bacterius !

cs_MAURICIO · Answer

Salut, 

tu peux utiliser un TTimer, mettre la fonction Sleep() ou utiliser GetTickCount avec application.ProcessMessages etc ...

A+

JulioDelphi · Answer

test avec

while i < 50 do
Cercle.Left + 1;
Cercle.Top +1;
sleep(1);
Inc(i);

ff1061 · Answer

Juste Pour Savoir , est ce que le 1 est en seconde ou milieme de seconde ou je ne sais quoi :P et c'est vai quand j'y pense il le dessine deux fois...unhe fois pour le x et une autre pour le y

Bacterius · Answer

Millisecondes.
1000 ms => 1 s

Cordialement, Bacterius !

Faire Bouger Une Shape

5 réponses

Votre réponse

Discussions similaires