Discussion :

[micatt]

Bonjour à tous,

j'ai une petite application dans laquelle je déplace une image qui glisse sur la feuille. Mon probleme est que l'image scintille. Quelqu'un a t-il déjà eu l'occasion de régler ce probleme ?

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
while image1.Left < 400 do
 begin
  application.ProcessMessages;
  image1.Left:=image1.Left +1;
  image1.Refresh;
  sleep(20);
 end;
end;

[Sunchaser]

Bonjour,

Essaies avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
procedure TForm.FormCreate(Sender: TObject);
begin
DoubleBuffered := true;
end;

@ +

[Droïde Système7]

Bonjour et bienvenue sur DVP !

As-tu pensé au :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoubleBuffered

?

Bon dév'

=================
Oupsss, grillé par Sunchaser

[micatt]

Merci à tous
Effectivement c'est beaucoup mieux