Curseur souris sablier

Curseur souris sablier - Delphi/Pascal - Programmation

Marsh Posté le 26-07-2003 à 15:23:21    

Salut,
 
Je suis en train de développer une appli qui fait parfois pas mal de traitement sans rien sortir à l'écran (du search/replace en masse dans des répertoires entier de fichiers texte). Et j'ai un grave problème. J'explique :
 
J'aimerais bien rassurer l'utilisateur impatient avec un curseur montrant que l'appli mouline sans pour autant planter. Un très moche sablier fera l'affaire. Seulement, si je demande Form1.Cursor := crHourGlass;, ça ne marche pas du tout car ma forme est complètement couverte de composants dont la propriété Cursor est toujours à crDefault, et que ce sont eux qui priment pour ça, et c'est nul. Je n'ai vraiment pas envie de devoir à chaque fois changer le curseur de tous les millions de composants de ma forme, et Application.Cursor n'existe pas :(.  
 
Si quelqu'un sait comment changer le curseur globalement, je suis preneuse ;).
 
Cate, qui mouline elle aussi


Message édité par Cate Winigan le 26-07-2003 à 15:25:37
Reply

Marsh Posté le 26-07-2003 à 15:23:21   

Reply

Marsh Posté le 26-07-2003 à 16:01:07    

tu dois passer par Screen.Cursor et si c'est possible pense à mettre un indicateur d'avancement pour ton traitement et un bouton pour le stopper ça fait mieux surtout si c'est vraiment long (voir utilise un thread) ;)

Reply

Marsh Posté le 27-07-2003 à 14:01:22    

Tiens une programmeuse  :hello:  
 
bonne continuation

Reply

Marsh Posté le 28-07-2003 à 12:16:34    

Merci !
 
Pas toujours facile de naviguer dans le fichier d'aide. Et bêtement, je pensais que la classe TScreen s'occupait de l'écran tout entier, pas spécialement de la surface de mon appli.
 
C'est pas très long non, de l'ordre de la seconde, donc pas la peine de mettre une jauge de progression. En plus, je ne sais pas le faire (comment évaluer le temps maxi avant coup ?)...
 
Bref, TScreen c'est beau, c'est simple, ça marche, merci ! [:cate winigan]

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed