Discussion :

[michel71]

Bonjour,

un problème surement mille fois évoqués mais je n'ai pas trouvé de réponse dans la recherche alors je pose la question toute bête.

comment mettre le "sablier" sur le curseur pendant l'exécution d'une boucle (assez longue)

merci

[Droïde Système7]

Bonjour,

Michel, suffit d'effectuer une toute petite Recherche sur le mot clé "sablier" (forum Delphi) et tu trouveras des réponses

Cette fonction de Recherche se situe en haut de cette page.
http://www.developpez.net/forums/search.php

http://www.developpez.net/forums/showthread.php?t=9157

Bon dév'

[MCoder]

Tu fais par exemple ceci sur l'évènement OnMouseMove de ta fiche :

Code :

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

1
2
3
4
 
....
screen.cursor := crHourGlass
....

Excuse moi. Utilise

Code :

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

cursor := ...

et

Code :

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

screen.cursor := ...

pour éviter que le curseur reste sous forme de sablier même quand il en dehors de la fiche.

Bon dév.