Non solo è abbastanza lungo per Application.ProcessMessages tipo, spesso la funzionalità supplementare deve essere chiamata quando la sua utilizzati. A tal fine ho creato due involucri di base che può essere usato al suo posto:
...
procedura ProcessMsg (); sovraccarico;
procedura ProcessMsg (const SleepFor: Word); sovraccarico;
attuazione
procedura ProcessMsg ();
iniziare
ProcessMsg (0);
fine;
procedura ProcessMsg (const SleepFor: Word); sovraccarico;
iniziare
Application.ProcessMessages ();
Veglia (SleepFor);
fine;
...
Ora invece di scrivere Application.ProcessMessages (); nel codice è possibile scrivere ProcessMsg (); invece. E, in futuro, si può estendere ciò che accade intorno Application.ProcessMessages chiamate senza visitare lotti di diverse aree del vostro codice.
Se il tuo utilizzando Delphi 2005 o superiore è possibile aggiungere il linea direttiva per la procedura di dichiarazione.
Le suddette funzioni richiedono "Moduli" e "Windows" di essere aggiunto agli usi clausola.
Tali procedure possono essere facilmente aggiunte al codice in questo articolo (http://www.howtodothings.com/ViewArticle.aspx?Article=758)
Delicious
Digg
Google
Yahoo
