A
awfigsk
Unregistered / Unconfirmed
GUEST, unregistred user!
unit Splash;
interface
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls,
ExtCtrls;
type
TSplashScreen = class(TForm)
StatusPanel: TPanel;
end;
var
SplashScreen: TSplashScreen;
implementation
{$R *.DFM}
[red]begin
SplashScreen := TSplashScreen.Create(Application);
SplashScreen.Show;
SplashScreen.Update;
end.[/red]
红色这部分代码是相当于在initialization部分吗?如果在一个项目中引用了该单元,这部分代码在主程执行前执行?是这样吗?
interface
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls,
ExtCtrls;
type
TSplashScreen = class(TForm)
StatusPanel: TPanel;
end;
var
SplashScreen: TSplashScreen;
implementation
{$R *.DFM}
[red]begin
SplashScreen := TSplashScreen.Create(Application);
SplashScreen.Show;
SplashScreen.Update;
end.[/red]
红色这部分代码是相当于在initialization部分吗?如果在一个项目中引用了该单元,这部分代码在主程执行前执行?是这样吗?