Non seulement Application.ProcessMessages est assez long à taper, souvent des fonctionnalités supplémentaires doit être appelée lorsque son utilisation. À cette fin, j'ai créé deux enveloppes de base qui peut être utilisé à sa place:
...
procédure ProcessMsg (); surcharge;
procédure ProcessMsg (const SleepFor: Word); surcharge;
la mise en œuvre
procédure ProcessMsg ();
commencer
ProcessMsg (0);
fin;
procédure ProcessMsg (const SleepFor: Word); surcharge;
commencer
Application.ProcessMessages ();
Sleep (SleepFor);
fin;
...
Maintenant, au lieu d'écrire Application.ProcessMessages (); dans votre code, vous pouvez écrire ProcessMsg (); la place. Et dans l'avenir, vous pouvez étendre ce qui se passe autour Application.ProcessMessages appels sans visiter beaucoup de domaines différents de votre code.
Si vous utilisez Delphi 2005 ou supérieur, vous pouvez joindre la ligne directive de la procédure de déclaration.
Les fonctions ci-dessus exigent "Formulaires" et "Windows" à ajouter à la clause utilise.
Ces procédures peuvent facilement être ajoutés à ce code dans cet article (http://www.howtodothings.com/ViewArticle.aspx?Article=758)
Delicious
Digg
Google
Yahoo
