继承自TCustomForm窗口，创建时，提示资源找不到

[chinayu2007]

class TFormControl:public TCustomForm
{
    public:
    __fastcall TFormControl(TComponent* Owner);

};
__fastcall TFormControl::TFormControl(TComponent* Owner):TCustomForm(Owner)
{
   this->Left = 20;
   this->Top  = 20;
   this->Width = 200;
   this->Height = 400;

}
TFormControl *Form2 = new  TFormControl(NULL); //提示TFormControl 类资源找不到 

[缘中人]

obj删除干净，完整编译。 报错准确提示是什么

[ccrun.com]

你需要重载一个构造函数，增加Dummy参数：

class TFormControl:public TCustomForm
{
	public:
	__fastcall TFormControl(TComponent* Owner);
	__fastcall TFormControl(System::Classes::TComponent* AOwner, int Dummy);

};
__fastcall TFormControl::TFormControl(TComponent* Owner):TCustomForm(Owner)
{
   this->Left = 20;
   this->Top  = 20;
   this->Width = 200;
   this->Height = 400;
}
__fastcall TFormControl::TFormControl(TComponent* AOwner, int Dummy):TCustomForm(Owner, Dummy)
{
   this->Left = 20;
   this->Top  = 20;
   this->Width = 200;
   this->Height = 400;
}

然后这样创建：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TFormControl *Form2 = new TFormControl(this, 0);
Form2->Show();
}