代码:
//---------------------------------------------------------- -----------------
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h" //登录窗体类的头文件
//---------------------------------------------------------- -----------------
USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", Form2);
//---------------------------------------------------------- -----------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
//Application->CreateForm(__classid(TForm1), &Form1); //这里是你的需要自动创建的窗体,如数据库连接模块、全局数据模块等。。。
TForm2 *Form2 = new TForm2(Application); //创建登录窗体
if(Form2->ShowModal() == mrOk) { //只有正确返回时才开始创建主窗体等。。。
Application->CreateForm(__classid(TForm1), &Form1);
}
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------- -----------------