Amazon.com Widgets Fun Code of the Week #3

Fun Code of the Week #3

By Nick at May 01, 2012 08:44
Filed Under: Fun Code, Delphi
procedure ShowHourGlass(Proc: TProc);
begin
  Screen.Cursor := crHourGlass;
  try
    Proc;
  finally
    Screen.Cursor := crDefault;
  end;
end;
blog comments powered by Disqus

My Book

A Pithy Quote for You

"When things go wrong in your command, start searching for the reason in increasingly larger concentric circles around your own desk."    –  General Bruce C. Clarke

Amazon Gift Cards

General Disclaimer

The views I express here are entirely my own and not necessarily those of any other rational person or organization.  However, I strongly recommend that you agree with pretty much everything I say because, well, I'm right.  Most of the time. Except when I'm not, in which case, you shouldn't agree with me.