主题：[原创]获得动态组件名称
league
[专家分：0] 发布于 2007-05-12 13:37:00
大家好!
我在窗体上动态的生成CheckBox组件,但是我怎样才能获得组件的名称?(如:在窗体上生成5个CheckBox组件,我单击窗体后就会把这5个组件的名称分别显示出来)
回复列表 （共2个回复）
沙发
长尾兔 [专家分：3630] 发布于 2007-05-14 19:46:00
procedure TForm1.Button1Click(Sender: TObject);
var
I : integer;
begin
for I := 1 to 5 do
with TCheckBox.Create(self) do
begin
Name := Format('MyCheckBox%d',[I]);
Left := 30;
Top := I * 50;
Parent := self;
Show;
end;
end;
procedure TForm1.FormClick(Sender: TObject);
var I : integer;
begin
//非要在单击窗体时Show它们的名字? 那我就按你的要求写了
for I := self.ComponentCount-1 downto 0 do
if Components[I] is TCheckBox then
ShowMessage(Components[I].Name);
end;
板凳
league [专家分：0] 发布于 2007-05-15 16:45:00
谢谢,请接分.
我来回复
您所在位置：