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

Delphi控件源码

开发平台:

Delphi

  1. unit AboutF;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   StdCtrls, Buttons, ExtCtrls;
  6. type
  7.   TAboutBox = class(TForm)
  8.     Panel1: TPanel;
  9.     BitBtn1: TBitBtn;
  10.     Image1: TImage;
  11.     Label1: TLabel;
  12.   private
  13.     { Private declarations }
  14.   public
  15.     procedure MakeSplash;
  16.   end;
  17. var
  18.   AboutBox: TAboutBox;
  19. implementation
  20. {$R *.DFM}
  21. procedure TAboutBox.MakeSplash;
  22. begin
  23.   BorderStyle := bsNone;
  24.   BitBtn1.Visible := False;
  25.   Panel1.BorderWidth := 3;
  26.   Show;
  27.   Update;
  28. end;
  29. end.