Delay(1000); ne functione pas?

Résolu
Delphiturbo Messages postés 68 Date d'inscription mercredi 31 octobre 2007 Statut Membre Dernière intervention 29 juillet 2008 - 2 mai 2008 à 15:48
Delphiturbo Messages postés 68 Date d'inscription mercredi 31 octobre 2007 Statut Membre Dernière intervention 29 juillet 2008 - 4 mai 2008 à 13:14
Salut

je voudrais faire un Click et une pause de 1seconde :

SetCursorPos(left+50, top+50);
Delay(200); // error ici !

Mais je dois mettere la Function de Delay oubien ?!
Je ne voudrais pas utiliser "Sleep()". Il bloque le programm
je cherche la Function de Delay

4 réponses

Caribensila Messages postés 2527 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 16 octobre 2019 18
2 mai 2008 à 16:22
Bonjour,

procedure Pause(Laps : Cardinal);
         var Deb,fin : Cardinal;
begin
  Deb := gettickcount;
  Fin  := deb + Laps;
  while Fin>Deb do begin
    Deb := gettickcount;
    Application.ProcessMessages
  end;
end;

Utilisation :  Pause(1000)  => 1 seconde
3