OpenFileStatusUnit.pas 594 B

123456789101112131415161718192021222324252627282930313233
  1. unit OpenFileStatusUnit;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5. ComCtrls, StdCtrls, ExtCtrls;
  6. type
  7. TOpenFileStatusForm = class(TForm)
  8. FileAnimate: TAnimate;
  9. FileNameLabel: TPanel;
  10. procedure FormCreate(Sender: TObject);
  11. procedure FormDestroy(Sender: TObject);
  12. private
  13. public
  14. end;
  15. implementation
  16. {$R *.DFM}
  17. procedure TOpenFileStatusForm.FormCreate(Sender: TObject);
  18. begin
  19. Screen.Cursor := crHourglass;
  20. end;
  21. procedure TOpenFileStatusForm.FormDestroy(Sender: TObject);
  22. begin
  23. Screen.Cursor := crDefault;
  24. end;
  25. end.