splash.pas
来自「Delphi basic program. Basic programing」· PAS 代码 · 共 27 行
PAS
27 行
unit Splash;
interface
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls,
ExtCtrls;
type
TSplashScreen = class(TForm)
StatusPanel: TPanel;
end;
var
SplashScreen: TSplashScreen;
implementation
{$R *.DFM}
begin
{ Since the splash screen is displayed before the main screen is created,
it must be created before the main screen. }
SplashScreen := TSplashScreen.Create(Application);
SplashScreen.Show;
SplashScreen.Update;
end.
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?