// WinMain 修改
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->ShowMainForm = false;
ShowWindow(Application->Handle, SW_HIDE); // 隱藏 Application 視窗
Form1->Visible = false; // 必須額外隱藏主視窗
Application->Run();
// Form1 OnCreate
int style = GetWindowLong(Handle, GWL_STYLE);
for (int i=0; i<2; i++) {
TForm2 *F = new TForm2(NULL);
F->ParentWindow = GetDesktopWindow();
F->Caption = (i==0)?"F":"G";
SetWindowLong(F->Handle, GWL_STYLE, style);
F->Show();
}
FormCount = 2;
// Form2 OnClose
if (Form1->FormCount > 1) Form1->FormCount--;
else Application->Terminate();
主視窗作為資料容器 (單例),子視窗透過 `Form1->SharedPath` 等屬性讀寫共享設定。