splashunit.pas

一个不用编写任何代码的DELPHI停靠窗体的控件原码

unit SplashUnit;

interface

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

type
  TSplashForm = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    SplashClosed: Boolean;
  end;

var
  SplashForm: TSplashForm;

implementation

{$R *.dfm}

procedure TSplashForm.Timer1Timer(Sender: TObject);
begin
  SplashClosed := True;
end;

procedure TSplashForm.FormCreate(Sender: TObject);
begin
  SplashClosed := False;
end;

procedure TSplashForm.Image1Click(Sender: TObject);
begin
  SplashClosed := True;
end;

end.