如何创建类型Photoshop那样的启动界面

[yuechuan]

我想创建类似Photoshop，或者像使用了CoduRush后的Delphi的启动界面
就是启动界面上会不停的显示当前加载了哪些控件或者窗体的信息

在我现在的项目里面，启动时间比较长，而且窗体比较多，所以想做出这种效果
不知道应该怎么做？
大家给个思路也可以（单纯的启动界面我会的）

[linzhengqun]

将你启动的流程分出来，一个阶段一个事件地往启动界面通知。

[小疙瘩]

program Project1;

uses
Forms,
main in 'main.pas' {F_main},
base in 'base.pas' {F_base},
login in 'login.pas' {F_login},
dm1 in 'dm1.pas' {DM: TDataModule},
move in 'move.pas' {F_move},
clerk in 'clerk.pas' {F_clerk},
sort in 'sort.pas' {F_sort},
operator in 'operator.pas' {F_operator},
Unit1 in 'Unit1.pas' {F_unit},
spec in 'spec.pas' {F_spec},
share in 'share.pas',
client in '..\image\client.pas' {F_client};

{$R *.res}

begin

F_move:=Tf_move.create(Application);
F_move.Show;
F_move.Update;

Application.Initialize;
application.ShowMainForm:=false;
Application.CreateForm(TF_main, F_main);
Application.CreateForm(TF_base, F_base);
Application.CreateForm(TDM, DM);
Application.CreateForm(TF_login, F_login);
Application.CreateForm(TF_clerk, F_clerk);
Application.CreateForm(TF_sort, F_sort);
Application.CreateForm(TF_operator, F_operator);
Application.CreateForm(TF_unit, F_unit);
Application.CreateForm(TF_spec, F_spec);
Application.CreateForm(TF_client, F_client);
F_move.Free;{Free从内存中释放对象}

F_login.Show;
Application.Run;

end.

[yuechuan]

我想在不修改其他模块的基础上做这个，而且希望能够显示的信息足够细，尽量显示到具体控件这一层
像装了CodeRush以后，启动界面就改掉了，它这个是怎么做的啊？有谁知道

[lextm]

不要希望短时间内模仿到CodeRush那个级别，他几乎黑掉了Delphi IDE的启动过程。如果你有空看看Rush APIs，你会发现Mark Miller真是很黑，嘿嘿。

所以你可以简单的模仿以下就好了。用户还不会要求那么高。呵呵。