请教一个关于两个窗体切换的有关问题，多谢

请问一个关于两个窗体切换的问题，谢谢！
我写了个程序，一共有三个窗体，Form1、Form2、Form3，其中Form2为登录框，Form1和Form3是两个独立的窗体，分别有自己独立的程序。我想实现，从登录框Form2登录后，根据条件，会打开Form1和Form3中的一个窗体，另一个窗体不会打开，也不被创建。在Form1和Form3的界面上各有一个按钮button，他的用处是把当前的窗体关闭掉，是真正的关闭，不是隐藏起来，然后创建打开另一个窗体。相关代码段如下：
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Form2=new TForm2(Application);
if(Form2->ShowModal()!=mrOk)
{
delete Form2;
Application->Terminate();
return 0;
}
else
{
delete Form2;
Form2=NULL;
}
if(Form1->ShowModal()==mrOk)
{
delete Form1;
Form1=NULL;
Application->CreateForm(__classid(TForm3), &Form3);
}

if(Form3->ShowModal()==mrOk)
{
delete Form3;
Form3=NULL;
Application->CreateForm(__classid(TForm1), &Form1);
}

//Application->CreateForm(__classid(TForm1), &Form1);
//Application->CreateForm(__classid(TForm3), &Form3);
Application->Run();
}
-----------------------
Unit1.cpp
void __fastcall TForm1::Button129Click(TObject *Sender)
{
ModalResult=mrOk;
}
-----------------------
Unit3.cpp
void __fastcall TForm3::Button26Click(TObject *Sender)
{
ModalResult=mrOk;
}

我也试用Form1->close();但他会将Form3也一起关掉。我也试过把Application->CreateForm(__classid(TForm1), &Form1);加入到Unit3.cpp中，还试过很多办法，但是包括上面贴出的代码段都是编译能通过，执行就会出Debugger Exception Notification的错误框。希望各位高手能够指点一下小弟，不胜感激，谢谢！

------解决方案--------------------
说个笨办法吧：
创建一个主窗体，在主窗体中创建一个新线程，新线程中分别调用Form1和Form3，根据ShowModal的结果来判定是否调用另一个窗体，如：

C/C++ code


TFormMain::TFromMain() {
    ThreadControl *thread = new ThreadControl();
    thread->WaitFor();
    delete thread;
    Application->Terminate();
}
class ThreadControl : public TThread {
private:
    int m_idAction;
    ......
};
ThreadControl::Execute() {
    m_idAction = ACTION_SHOW_FORM1;
    while ( m_idAction != ACTION_EXIT ) {
        switch ( m_idAction ) {
        case ACTION_SHOW_FORM1 :
             Synchronize(ShowForm1);
             break;
        case ACTION_SHOW_FORM3 :
             Synchronize(ShowForm3);
             break;
        }
    }
}
void __fastcall ThreadControl::ShowForm1() {
    TForm1 *form = new TForm1(...);
    form->ShowModal();
    m_idAction = form->NextAction();
    delete form;
}

TForm1::bnOkClick(TObject *Sender) {
    switch ( status ) {
    case .....
        m_idNextAction = ACTION_SHOW_FORM3;
        break;
    case ....
        m_idNextAction = ACTION_EXIT;
    }
    ModalResult = mrOk;
}
TForm1::NextAction() {
    return m_idNextAction;
}

------解决方案--------------------

主窗体是谁？主窗体关闭了，程序也就关闭了，可以新增加一个主窗体，在登陆后创建主窗体，再根据条件创建form1或者form3

请教一个关于两个窗体切换的有关问题，多谢

相关推荐