想给程序加一个启动窗口

glooby 2004-04-27 05:16:50
想给我的一个程序加一个启动窗口,就像word之类的软件,刚启动时首先弹出一个窗体,上面是公司的图标和一些版权信息,然后过一小会儿,这个窗体自动消失了,真正的主窗体才出来。请问该如何做?
...全文
71 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
chpst 2004-04-28
  • 打赏
  • 举报
回复
Splash->Show();
应是Form5吧!
glooby 2004-04-27
  • 打赏
  • 举报
回复
请再帮忙看看,程序运行后溢出,代码如下:


#include <vcl.h>
#pragma hdrstop
#include "Unit5.h" //这是启动窗口的头文件
long Itime;

USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", Form2);
USEFORM("Unit3.cpp", Form3);
USEFORM("Unit6.cpp", Form6);
USEFORM("Unit7.cpp", Form7);
USEFORM("Unit4.cpp", Form4);
USEFORM("Unit5.cpp", Form5);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{

try
{
TForm5 *Splash= new TForm5(Application);
Splash->Show();

Application->Initialize();

Application->CreateForm(__classid(TForm1), &Form1); // 主窗口
Application->CreateForm(__classid(TForm2), &Form2); // 运行到这儿程序溢出
Application->CreateForm(__classid(TForm3), &Form3);
Application->CreateForm(__classid(TForm6), &Form6);
Application->CreateForm(__classid(TForm7), &Form7);
Application->CreateForm(__classid(TForm4), &Form4);
Itime=GetTickCount();
while ((GetTickCount()-Itime)/1000 <1);

Splash->Update();
Splash->Free();
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------
空中猎手 2004-04-27
  • 打赏
  • 举报
回复
TForm2* frm = new TForm2(this);
try {
frm->ShowModal();
frm->Update();
Sleep(10000);
} __finally {
delete frm;
}
thp 2004-04-27
  • 打赏
  • 举报
回复
.
chpst 2004-04-27
  • 打赏
  • 举报
回复
#include <vcl.h>
#include "SplashUnit.h"
long Itime;
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Splash= new TSplash(Application);
Splash- >Show();
Application- >Initialize();
Application- >CreateForm(__classid(TDM), &DM);
Application- >CreateForm(__classid(TLoginForm), &LoginForm);
Application- >CreateForm(__classid(TMainForm), &MainForm);
Itime=GetTickCount();
while ((GetTickCount()-Itime)/1000 <1)

Splash- >Update();
Splash- >Free();
Application- >Run();
}
catch (Exception &exception)
{
Application- >ShowException(&exception);
}
catch (...)
{
try
{
throw Exception( " ");
}
catch (Exception &exception)
{
Application- >ShowException(&exception);
}
}
return 0;
}

13,822

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧