TForm1 *Form1;这句为什么不new就可以使用?

zgs0214

TForm1 *Form1;这句为什么不new就可以使用? 整个工程里没看到new 语句啊.
还有.h里的 extern PACKAGE TForm1 *Form1;是什么意思? 是全局变量?

xietao405

在 Application->CreateForm里面

外部变量

firemars

在 Project1.cpp 里。

zhongshuan

菜单project->ViewSource,自己看看就知道了

mad_diablo

编译器帮你做了。

apple_058

缺省新建一个工程，在Project.cpp中自动生成代码
在WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 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;
}

这一句Application->CreateForm(__classid(TForm1), &Form1);
创建了Form1

如果你的工程有不止一个的Form，
可以让其他的Form不new出来，在代码中自己new

菜单project->Options->Forms中
将相应form从auto-create forms挪到available forms中

注意不能将所有form“拖”到右面