对于一组动态生成的控件如何获得当前活动控件的名字
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
private
procedure myclick(sender:Tobject);
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure Tform1.myclick(sender:Tobject);

begin

Panel1.Caption:=ActiveControl.Name;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
comboBox1: TComboBox;
begin
comboBox1:=TcomboBox.Create(self);
combobox1.Parent:=form1;
comboBox1.Top:=10;
with comboBox1 do
begin
comboBox1.OnChange:=myclick;
end;
end;

为什么在panel1的caption属性不能够显示出 动态创建的comboBox1控件的名字呢？

急急急 ！~~~~~~~~~~~~


[解决办法]
因为你创建ComboBox的时候没有指定Name，加一行：

comboBox1.Name := 'WaKaKa ';