有两个组件，如同combox1，combox2，想通过按一个按钮后，又生成两个相同的COMBOX。

Question

var
  vcl1,vcl2:TCombobox;
begin
  vcl1:=Tcombobox.create(self);
  vcl1.parent:=form1;
  vcl1.left:=10;
  vcl1.top:=10;
  vcl1.height:=100;
  类似这样就可以了。

Answer 1

var
  vcl1,vcl2:TCombobox;
begin
  vcl1:=Tcombobox.create(combox1);
  vcl1.parent:=form1;
  vcl1.left:=10;
  vcl1.top:=10;
  vcl1.height:=100;
  类似这样就可以了。

Answer 2

问题是我想还要继承它的事件，如同combox中change，如何处理呢

Answer 3

var
  vcl1: TCombobox;
begin
  vcl1:=Tcombobox.create(self);
  vcl1.parent:=form1;
  vcl1.left:=10;
  vcl1.top:=10;
  vcl1.height:=100;
  vcl1.Items.Assign(TComboBox(Sender).Items);
  vcl1.OnChange := TComboBox(Sender).OnChange;
  ...