AboutF.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit AboutF;
  2. interface
  3. uses
  4.   Qt, SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
  5.   QStdCtrls, QButtons, QExtCtrls, QTypes;
  6. type
  7.   TAboutBox = class(TForm)
  8.     Panel1: TPanel;
  9.     BitBtn1: TBitBtn;
  10.     Image1: TImage;
  11.     Label1: TLabel;
  12.     Timer1: TTimer;
  13.     procedure Timer1Timer(Sender: TObject);
  14.   private
  15.     { Private declarations }
  16.   public
  17.     procedure MakeSplash;
  18.   end;
  19. var
  20.   AboutBox: TAboutBox;
  21. implementation
  22. {$R *.xfm}
  23. procedure TAboutBox.MakeSplash;
  24. begin
  25.   BorderStyle := fbsNone;
  26.   FormStyle := fsStayOnTop;
  27.   BitBtn1.Visible := False;
  28.   Panel1.BorderWidth := 3;
  29.   Show;
  30.   Update;
  31. end;
  32. procedure TAboutBox.Timer1Timer(Sender: TObject);
  33. begin
  34.   Close;
  35.   Release;
  36. end;
  37. end.