|
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TPanel *Pan = new TPanel(this);
Pan->Name = "Panel1"
Pan->Left = 10;
Pan->Top = 10;;
Pan->Parent = Form1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString text;
TPanel *Pan = new TPanel(this);
Pan->Name = "Panel2";
text = "Panel1";
TPanel *Pan2 = NULL;
Pan2 = dynamic_cast<TPanel *>(Form1->FindComponent(text));
Pan->Parent = Pan2->Parent;
}
//---------------------------------------------------------------------------
이렇게 해보았더니 Panel1속에 Panel2가 들어가는게 아니라는걸 알게되었습니다.
제의도는 그게 아니라서요;;
저 Panel2속에 집어넣게 하려면 어떻게해야하나요?
|