Application.ProcessMessages substituição

Não só é muito longa para Application.ProcessMessages tipo, muitas vezes a funcionalidade extra tem de ser chamado quando a sua utilização. Para este efeito criada Tenho dois invólucros básico, que pode ser usado em seu lugar:

...

procedimento ProcessMsg (); sobrecarga;
procedimento ProcessMsg (const SleepFor: Word); sobrecarga;

execução

procedimento ProcessMsg ();
começo
ProcessMsg (0);
final;

procedimento ProcessMsg (const SleepFor: Word); sobrecarga;
começo
Application.ProcessMessages ();
Sono (SleepFor);
final;

...

Agora, em vez de escrever Application.ProcessMessages (); no seu código, você pode escrever ProcessMsg (); vez. E, no futuro, pode prorrogar o que acontece ao redor Application.ProcessMessages chamadas sem visitar os lotes de diferentes áreas do seu código.

Se o seu utilizando Delphi 2005 ou acima você poderá anexar o inline directiva relativa ao processo declaração.

O exigir precede funções "Formulários" e "Windows", que será adicionada à cláusula usa.

Estes procedimentos podem facilmente ser adicionadas ao código neste artigo (http://www.howtodothings.com/ViewArticle.aspx?Article=758)