遍历groupbox1的所有控件，让edit和combobox为空

转载于 2008-08-24 01:01:00 发布 · 563 阅读

Delphi 专栏收录该内容

24 篇文章

订阅专栏

此代码段展示了如何遍历一个控件组 (GroupBox1) 中的所有子控件，并清空文本框 (TEdit) 的内容及将组合框 (TComboBox) 的选择项设置为无效，以实现界面初始化。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
        i:integer;
begin
        for i:=0 to GroupBox1.ControlCount-1 do
        begin
                if GroupBox1.Controls[i].ClassType=tedit then
                begin
                        (GroupBox1.Controls[i] as tedit).Text:='';
                end;
                if GroupBox1.Controls[i].ClassType=TComboBox then
                begin
                        (GroupBox1.Controls[i] as TComboBox).ItemIndex:=-1;
                end;
        end;