Curseur souris sablier - Delphi/Pascal - Programmation
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)
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 !
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