home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 October / Chip_2002-10_cd1.bin / zkuste / delphi / kolekce / d56 / FLEXCEL.ZIP / Demo / UWaitCursor.pas < prev    next >
Pascal/Delphi Source File  |  2002-04-28  |  529b  |  36 lines
  1. unit UWaitCursor;
  2.  
  3. interface
  4. uses Controls, Forms;
  5. type
  6.   IWaitCursor = interface
  7.   end;
  8.  
  9.   TWaitCursor = class(TInterfacedObject, IWaitCursor)
  10.   private
  11.     OldCursor: TCursor;
  12.   public
  13.     constructor Create;
  14.     destructor Destroy;override;
  15.   end;
  16.  
  17. implementation
  18.  
  19. { TWaitCursor }
  20.  
  21. constructor TWaitCursor.Create;
  22. begin
  23.   inherited;
  24.   OldCursor:= Screen.Cursor;
  25.   Screen.Cursor:= crHourGlass;
  26. end;
  27.  
  28. destructor TWaitCursor.Destroy;
  29. begin
  30.   Screen.Cursor:= OldCursor;
  31.   inherited;
  32.  
  33. end;
  34.  
  35. end.
  36.