Наследник TForm

#include <Forms.hpp>
 
class TMyForm : public TForm
{
  __published:
    __fastcall FormCreate(TObject* Sender);
    __fastcall FormClose(TObject* Sender, TCloseAction &Action);
  public:
    __fastcall TMyForm(TComponent*);
};

#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "classes/TMyForm.h"
 
 
class TForm1 : public TMyForm
{
__published:    // IDE-managed Components
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------

class TMyForm : public TForm
{
  public:
    __fastcall TMyForm(TComponent*);
    void __fastcall Create(TObject*);
    void __fastcall Close(TObject*, TCloseAction&);
};

__fastcall TMyForm::TMyForm(TComponent* Owner) : TForm(Owner)
{
  OnCreate = Create;
  OnClose = Close;
}
 
void __fastcall TMyForm::Create(TObject* Sender)
{
    TIniFile* ini = new TIniFile("ini/" + Name + ".cfg");
    Top = ini->ReadInteger("Coordinates", "top", 100);
    Left = ini->ReadInteger("Coordinates", "left", 100);
    delete ini;
}
 
void __fastcall TMyForm::Close(TObject* Sender, TCloseAction& Action)
{
    TIniFile* ini = new TIniFile("ini/" + Name + ".cfg");
    ini->WriteInteger("Coordinates", "top", Top);
    ini->WriteInteger("Coordinates", "left", Left);
    delete ini;
}

//---------------------------------------------------------------------------
class TMainForm : public TMyForm
{
__published:    // IDE-managed Components
    TMainMenu *mainMenu;
    TMenuItem *N1;
    TMenuItem *N2;
    TMenuItem *N3;
    TMenuItem *N4;
    TMenuItem *N5;
    TMenuItem *N6;
    TStatusBar *statusBar;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall N2Click(TObject *Sender);
private:    // User declarations
    ExitButton *exButton;
public:     // User declarations
    __fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------

TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TMyForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
    exButton = new ExitButton(this);
    exButton->Top = 400;
    exButton->Left = 600;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormCreate(TObject *Sender) {
    TMyForm::Create( this );
    exButton = new ExitButton(this);
    exButton->Top = 400;
    exButton->Left = 600;
}

// В *.h
private: * *// User declarations
* * TWndMethod Old_Form_Proc;
* * void __fastcall New_Form_Proc(TMessage& msg);
*
// В *.cpp
void __fastcall TForm1::FormCreate(TObject *Sender)
{
* * Old_Form_Proc = WindowProc;
* * WindowProc = New_Form_Proc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::New_Form_Proc(TMessage& msg)
{
* * switch (msg.Msg) {
* * * * case WM_MOVE: // при перемещении формы
* * * * * * if (Form2) {
* * * * * * * * Form2->Top = Top + Height;
* * * * * * * * Form2->Left = Left;
* * * * * * * * Form2->Width = Width;
* * * * * * }
* * * * * * break;
* * * * case WM_SIZE: // при изменении размеров формы
* * * * * * if (Form2) {
* * * * * * * * Form2->Top = Top + Height;
* * * * * * * * Form2->Left = Left;
* * * * * * * * Form2->Width = Width;
* * * * * * }
* * * * * * break;
* * * * default:
* * * * * * ;
* * }
*
* * Old_Form_Proc(msg);
}

     if (Form1->WindowState==wsMaximized) Reg->WriteInteger("WinMax", 1);
     else   {
       Reg->WriteInteger("WinWidth", Form1->Width);
       Reg->WriteInteger("WinHeight", Form1->Height);
       Reg->WriteInteger("WinMax", 0);
     }