Problem med Form1->Visible = false; under start

i kan gøre det ved i Project1.cpp filen (jeres app navn istedet for project1) at bytte om på disse linier

som det ser ud normalt

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                Application->Initialize();
                Application->CreateForm(__classid(TForm1), &Form1);
                Application->CreateForm(__classid(TForm2), &Form2);

                Application->Run();
        }
        catch (Exception &exception)
        {
                Application->ShowException(&exception);
        }
        return 0;
}

Som i skal rette det til så opnå i det i vil

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                Application->Initialize();
                Application->CreateForm(__classid(TForm2), &Form2);
                Application->CreateForm(__classid(TForm1), &Form1);

                Application->Run();
        }
        catch (Exception &exception)
        {
                Application->ShowException(&exception);
        }
        return 0;
}

Koden her starter FORM 1, der minimere sig selv og åbner FORM 2. Når Form 2 lukkes (modal), genskabes FORM 1 til normal størrelse. Der skal tilføjes en OnClose event handler til Form2 for at håndtere lukning af denne på anden vis end klik på "Luk FORM 2":

Form1.ccp
---------

#include <vcl\vcl.h>
#pragma hdrstop

#include "form1.h"
#include "form2.h"

#pragma resource "*.dfm"
TForm1 *Form1;
TForm2 *Form2;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TForm2 *Form2 = new TForm2(Application, 0);
    Form1->WindowState = wsMinimized;
    Form2->ShowModal();
    delete Form2;
}

Form2.ccp
---------

#include <vcl\vcl.h>
#pragma hdrstop

#include "form2.h"
#include "form1.h"

__fastcall TForm2::TForm2(TComponent *Owner, int count) : TForm(Owner, 0)
{
    ExitForm2 = new TButton(this);
    ExitForm2->Parent = this;
    ExitForm2->OnClick = ExitForm2Click;
    ExitForm2->Caption = "Luk FORM 2";
}
void __fastcall TForm2::ExitForm2Click(TObject *Sender)
{
    Form1->WindowState = wsNormal;
    Close();
}

Form2.h
-------

#ifndef Unit2H
#define Unit2H

class TForm2 : public TForm
{
    private:
        TButton *ExitForm2;
        void __fastcall ExitForm2Click(TObject *Sender);
    public:
        virtual __fastcall TForm2(TComponent *Owner, int count);
};

#endif