我得控件都放在gb_head(TGroupBox)里面
怎么gb_head.ComponentCount=0 ?var
i : integer;
begin
showmessage(IntTostr(gb_head.ComponentCount));
for i:=0 to gb_head.ComponentCount-1 do
begin
if (gb_head.Components[i].Name = 'TEdit') then
(gb_head.Components[i] as TEdit).Text := '';
if (gb_head.Components[i].Name = 'TComboBox') then
(gb_head.Components[i] as TComboBox).ItemIndex := 0;
if (gb_head.Components[i].Name = 'TRadioGroup') then
(gb_head.Components[i] as TRadioGroup).ItemIndex := 0;
end;
怎么gb_head.ComponentCount=0 ?var
i : integer;
begin
showmessage(IntTostr(gb_head.ComponentCount));
for i:=0 to gb_head.ComponentCount-1 do
begin
if (gb_head.Components[i].Name = 'TEdit') then
(gb_head.Components[i] as TEdit).Text := '';
if (gb_head.Components[i].Name = 'TComboBox') then
(gb_head.Components[i] as TComboBox).ItemIndex := 0;
if (gb_head.Components[i].Name = 'TRadioGroup') then
(gb_head.Components[i] as TRadioGroup).ItemIndex := 0;
end;
把Components换成Controls或者把gb_head.直接去掉或是换成表单名如form1.