如何制作启动封面？

[adventurezl]

rt

[DaMimit]

看看帮助。例程上有！

[gfh_79_0]

#include "Splash.h"

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
TSplashFrom * Splash = new TSplashFrom(Application);
Splash->FormStyle=fsStayOnTop;
Splash->BorderStyle=bsNone;
Splash->Position=poScreenCenter;
Splash->Show();
Splash->Update();
Sleep(1500);

Application->CreateForm(__classid(TSystemManager), &SystemManager);
Application->CreateForm(__classid(TMainForm), &MainForm);
Application->CreateForm(__classid(TDJ_Data), &DJ_Data);
Application->CreateForm(__classid(TSetForm1), &SetForm1);
Application->CreateForm(__classid(TInformationForm), &InformationForm);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
Splash中放一个Timer关闭Splash，另设置不自动创建。

[handongchen]

up上面的代码说的很清楚！

[maxying]

首先设计好启动窗体，然后再工程选项中把它从自动创建窗体列表中去掉，再修改主程序：
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
FormLogo = new TFormLogo(FormLogo);
FormLogo->Show();
FormLogo->Update();
Application->CreateForm(__classid(TPerAssMainForm), &PerAssMainForm);
Application->CreateForm(__classid(TMiniExplorer), &MiniExplorer);
Application->CreateForm(__classid(TMiniMailer), &MiniMailer);
FormLogo->FadeOut();
FormLogo->Free();
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}

[Lewolf]

想蹭点分，来晚了

[c12916]

我认为上面的做法有三点注意的:
一、正如螃蟹说的设计好启动窗体，然后再工程选项中把它从自动创建窗体列表中去掉。
同时把USEFORM();也去掉
二、用FormLogo->ShowModal();代替FormLogo->Show();
三、在FormLogo->Update();可以用free,也可以在后面加上一条delete FormLogo;
作为一名程序员，new的东东一定要delete;
共同探讨，希望大家批评指正

[adventurezl]

各位老大说得都不错。我现在有一个LoginForm和主form，我希望在主form出现之前，先出现LoginForm，只有用户正确输入用户名和密码后，才出现主form。我是在主form的OnCreate事件中，动态创建LoginForm的，如下：
void __fastcall TfrmKMMain::FormCreate(TObject *Sender)
{
//先判断dmClient上的ADOConnection有没有连接，若没有 ，则不创建登录窗体
if (dmClient->ADOConnection1->Connected)
{
frmLogin=new TfrmLogin(Application);
frmLogin->ShowModal();
SnAdvancedPanel4->Height=285;
}
else
Application->Terminate();
}
然后在LoginForm中,判断用户的输入，正确后调用frmKMMain->ShowModal();

现在的问题是，如果我如下使用的话：当LoginForm出现的时候，封面窗体仍然存在。怎么解决？
如果我希望主窗体出现后，再出现LoginForm，怎么处理？（需要在什么事件里写？）
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
frmSplashForm =new TfrmSplashForm(Application);
frmSplashForm->Show();
frmSplashForm->Update();
Application->CreateForm(__classid(TdmBBS), &dmBBS);
Application->CreateForm(__classid(TdmClient), &dmClient);
Application->CreateForm(__classid(TfrmKMMain), &frmKMMain);
delete frmSplashForm;
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}

只要能解决，每个人都有份

[adventurezl]

to c12916(cyh) :
1。不论USEFORM();去掉还是保留，都必须手工添加头文件：#include "SplashForm.h".否则报错
2。一定不能用用FormLogo->ShowModal();代替FormLogo->Show();
否则FormLogo不手动关闭，则一直出现，其余的程序也不运行了

[yyy1020]

BCB数据库方面的例程中有，在mastapp子目录下。

http://www.csdn.net/cnshare/soft/11/11463.shtm