splash.pas

来自「这是一个DELPHI7应用案例开发篇有配套程序种子光盘」· PAS 代码 · 共 54 行

unit Splash;

interface

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

type
  TfrmSplash = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    IsCreateOK:Boolean;
    IsTimeOK:Boolean;
  public
    procedure CreateOK;
  end;

var
  frmSplash: TfrmSplash;

implementation

{$R *.dfm}

procedure TfrmSplash.CreateOK;
begin
    if IsTimeOK then
        Release;

    IsCreateOK := True;
end;

procedure TfrmSplash.FormCreate(Sender: TObject);
begin
    IsCreateOK := False;
    IsTimeOK := False;
end;

procedure TfrmSplash.Timer1Timer(Sender: TObject);
begin
    if IsCreateOK then
        Release;

    IsTimeOK := True;
end;

end.