?? usplash.pas
字號:
unit USplash;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, jpeg, ExtCtrls;
type
TSplashForm = class(TForm)
ImageSplash: TImage;
private
{ Private declarations }
public
{ Public declarations }
end;
var
SplashForm: TSplashForm;
procedure ShowSplashFrm;
procedure Delay(Value: Integer);
implementation
{$R *.DFM}
procedure ShowSplashFrm;
var
SplashFrm: TSplashForm;
begin
SplashFrm := TSplashForm.Create(Application);
SplashFrm.Show;
Delay(2000);
SplashFrm.Hide;
SplashFrm.Free;
end;
procedure Delay(Value: Integer);
var
StartTime,EndTime: TDateTime;
Hour,Min,Sec,MSec: Word;
StartMSec,EndMSec: LongInt;
begin
StartTime := Time;
DecodeTime(StartTime,Hour,Min,Sec,MSec);
StartMSec := Hour * 3600 * 1000 + Min * 60 * 1000 + Sec * 1000 + MSec;
EndMSec := StartMSec;
while (EndMSec - StartMSec < Value) do
begin
EndTime := Time;
DecodeTime(EndTime,Hour,Min,Sec,MSec);
EndMSec := Hour * 3600 * 1000 + Min * 60 * 1000 + Sec * 1000 + MSec;
Application.ProcessMessages;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -