Не работает OnResize у динамической формы

[peter12317]

Добрый день!

Проблема заключается в следующем:
При динамическом создании формы, не работает обработчик OnResize(), но не могу понять почему. Подскажите, кто знает, пожалуйста!

Проект состоит из главной формы fmMain (unMain.cpp), и по нажатии на кнопку Button1 я создаю экземпляр формы fmNewForm (unNewForm.cpp), по нажатии на кнопку Button2 я показываю форму fmNewForm (приэтом, ее обработчик OnResize прекрасно работает)

Вот код unMain.cpp:

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "unMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmMain *fmMain;
TfmNewForm *NewForm;
//---------------------------------------------------------------------------
__fastcall TfmMain::TfmMain(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::Button1Click(TObject *Sender)
{
	NewForm = new TfmNewForm(Application);
	NewForm->Height = fmNewForm->Height;
	NewForm->Width = fmNewForm->Width;
	NewForm->Show();
	NewForm->OnResize = fmNewForm->OnResize;
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::Button2Click(TObject *Sender)
{
	fmNewForm->Show();
}
//---------------------------------------------------------------------------

Код unNewForm.cpp

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "unNewForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmNewForm *fmNewForm;
//---------------------------------------------------------------------------
__fastcall TfmNewForm::TfmNewForm(TComponent* Owner)
	: TForm(Owner)
{
}
//-------------------------------------------------------------------------
void __fastcall TfmNewForm::FormResize(TObject *Sender)
{
	Caption = "OnResize! W: "+IntToStr(Width)+"; H: " + IntToStr(Height) + ";";
}
//---------------------------------------------------------------------------

Среда программирования CodeGear RAD Studio 2007 (C++ Builder 2007)

[peter12317]

Подскажите, что я делаю не так?

[kwwsoft]

NewForm->OnResize = fmNewForm->OnResize;
это зачем?
если создалась форма динамически то и соответственно все ее компоненты (обработчики событий) тоже созданы. Значит NewForm имеет свое OnResize, созданное на этапе проектирования - оно и будет работать....

причем
NewForm->Height = fmNewForm->Height;
NewForm->Width = fmNewForm->Width;
это зачем?
если нужны конкретные размеры формы - просто их присвоить... типа
NewForm->Height = 300

[peter12317]

Большое спасибо! Все заработало как надо