u_splsah.pas

来自「SQL的应用」· PAS 代码 · 共 48 行

unit U_Splsah;

interface

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

type
  TF_Splash = class(TForm)
    Timer_Splash: TTimer;
    Label_Splash: TLabel;
    Image_Splash: TImage;
    Label_Endo: TLabel;
    Label_Logon: TLabel;
    procedure Timer_SplashTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Splash: TF_Splash;

implementation
  Uses U_Main,U_Logon;
{$R *.dfm}

procedure TF_Splash.Timer_SplashTimer(Sender: TObject);
begin
   Label_Endo.Caption:=Label_Endo.Caption+'>';
   If Label_Endo.Caption='>>>>>>>>>>>>>>>>>>>>>>>>>>>' Then
     Begin
       Label_Logon.Caption:='即将登陆 Endo 系统';
     End
     Else
       If Label_Endo.Caption='>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>' Then
         Begin
           Timer_Splash.Enabled:=False;
           F_Splash.Free;
         //  F_Main.Show;
           F_Logon.Show;
         End;
end;

end.