splash.pas

来自「一个用Delphi做的不错的学生宿舍管理系统！界面比前一个好看！」· PAS 代码 · 共 43 行

unit splash;

interface

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

type
  TSplashForm = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SplashForm: TSplashForm;

implementation
uses login;

{$R *.dfm}

procedure TSplashForm.Timer1Timer(Sender: TObject);
begin
application.CreateForm(Tloginform,loginform);
splashform.Hide;
splashform.Free;
loginform.show;
end;

end.