unit1.cpp

来自「本书《C++Builder与WindowsAPI经典范例》附含配套光盘包括132」· C++ 代码 · 共 48 行

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{//默认Form1为母窗口
FormStyle = fsMDIForm;
}
//---------------------------------------------------------------------------
//在程序显示时，建立4个子窗口
void __fastcall TForm1::FormShow(TObject *Sender)
{
for(int i=0;i<4;i++)
   {
   TForm *form = new TForm(this);
   form->Parent = Form1;
   form->FormStyle = fsMDIChild;
   form->Name = "Child_" + AnsiString(i);
   form->Width = 150; form->Height = 50;
   form->Top = i*50; form->Left = i*15;
   }
}
//---------------------------------------------------------------------------
//运用按钮切换隐藏或显示4个子窗口
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
for(int i=0;i<4;i++)
   {
   AnsiString name = "Child_" + AnsiString(i);
   HWND hwnd = ::FindWindow(NULL, name.c_str());
   ::DestroyWindow(hwnd);
   }
}
//---------------------------------------------------------------------------
//先取得Form1下的第一个子窗口
void __fastcall TForm1::Button1Click(TObject *Sender)
{
char cls[256];
//先取得Form1下的第一个子窗口
HWND hwnd = ::GetWindow(Handle, GW_CHILD);
//持续找寻子窗口，进行显示或隐藏功能