Application.ProcessMessages replacement

Not only is Application.ProcessMessages quite long to type, often extra functionality needs to be called when its used.  To this end I have created two basic wrappers which can be used in its place:

...

procedure ProcessMsg(); overload;
procedure ProcessMsg(const SleepFor: Word); overload;

implementation

procedure ProcessMsg();
begin
  ProcessMsg(0);
end;

procedure ProcessMsg(const SleepFor: Word); overload;
begin
  Application.ProcessMessages();
  Sleep(SleepFor);
end;

...

Now instead of writing Application.ProcessMessages(); in your code you can write ProcessMsg(); instead.  And in the future you can extend what happens around Application.ProcessMessages calls without visiting lots of different areas of your code.

If your using Delphi 2005 or above you could append the inline directive to the procedure declaration.

The above functions require "Forms" and "Windows" to be added to the uses clause.

These procedures could easily be added to the code in this article (http://www.howtodothings.com/ViewArticle.aspx?Article=758)

 

Share this article!

Follow us!

Find more helpful articles: