dynaform.cpp

来自「C++ BUILDER精彩编程实例集锦(源码) 第一部分 界面设计 第二部分」· C++ 代码 · 共 24 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "DynaForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::CloseDynaForm(TObject *Sender,
      TCloseAction &Action)
{
 // Action=caFree;
}
//---------------------------------------------------------------------------