splashunit.pas

-个人文档管理专家V1.10版本源码

unit SplashUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, SUIProgressBar;

type
  TSplashFrm = class(TForm)
    Image1: TImage;
    Shape1: TShape;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    sPB_Splash: TsuiProgressBar;
    lbl_Close: TLabel;
    procedure FormHide(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure lbl_CloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SplashFrm: TSplashFrm;

implementation

{$R *.dfm}

procedure TSplashFrm.FormHide(Sender: TObject);
begin
  sPB_Splash.Visible:=False;
end;

procedure TSplashFrm.Image1Click(Sender: TObject);
begin
  ModalResult:=mrOk;
end;

procedure TSplashFrm.lbl_CloseClick(Sender: TObject);
begin
  ModalResult:=mrOk;
end;

end.