很简单的。你在工程文件里,加入如下代码就可以了。
假设你的封面窗口为 prompt;
begin
Application.Initialize;
prompt :=Tprompt.create(nil);
prompt.show;
prompt.update;
//在这里创建主窗体
main :=TfrmMain.create(application);
//如果有登录窗体,可以在此创建。
logging :=Tlogging.create(main);
Prompt.realese ;// 释放封面窗体.
main.show;
Logging.showmodal;
Application.run;
end;
这个方法已经可以达到你的要求,当然还有别的方法的。
比如可以在单元的initialization 部分进行处理。