怎样创建一个组合控件？？？？？？？？？？？？？？？

Question

现在要写个控件，具体是想用label和image（4个，每个角上一个）合成一个控件使用，每个image都可以单独装图片，怎么搞，最好给个语法，不要说的太简单，我菜

Answer 1

从TPANEL里继承一下，在构造的时候创建几个IMAGE放上面，析够的时候释放！

Answer 2

方法-：
从TPANEL里继承一個，在构造的时候创建4个 IMAGE 放上面，設置對齊或者 高/寬，Parent 就是那個 TPanel 就OK了，這個比較簡單；
方法二：
從TGraphicControl繼承自己用 Canvas 畫，什麼都自己畫上去也OK。

Answer 3

有,来了,下面是BCB写的,你转成delphi就可以了
新建项目,加一个TButton,在事件加下面代码即可:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TPanel *pl = new TPanel(Owner);
  pl->Parent = this;
  pl->Top = 10;
  pl->Left = 10;
  pl->Height = 200;
  pl->Width = 200;
  TEdit *ed = new TEdit(pl);
  ed->Parent = pl;
  ed->Top = 5;
  ed->Left = 5;
  TCheckBox *cb = new TCheckBox(pl);
  cb->Parent = pl;
  cb->Top = 55;
  cb->Left = 5;
  cb->Caption = "自定义控件";
}