盒子论坛 v2.1

    我想问一下，怎么样才能得到一个控件上的所有控件的个数，父类
比如一个GroupBox，我在上面放了很多的label,edit,我怎么样能得到label的个数
和edit的个数呢。
  我是这样写的i:=GroupBox_tel.ComponentCount 但是将i显示出来是0
----------------------------------------------
  一个小程序员

作者：

easykey (悠游)	★☆☆☆☆	-
	盒子活跃会员

2004/3/2 14:42:35

1楼：

procedure TForm1.Button1Click(Sender: TObject);
var
  i,lblCount,edtCount: integer;
begin
  lblCount := 0;
  edtCount := 0;
  for i := 0 to ComponentCount - 1 do
    if Components[i].GetParentComponent = GroupBox then
    begin
      if Components[i] is TLabel then
        lblCount := lblCount + 1;
      if Components[i] is TEdit then
        edtCount := edtCount + 1;
    end;
  showmessage(IntToStr(lblcount));
  showmessage(IntToStr(edtcount));
end;
----------------------------------------------

男儿贵展平生志，为国输忠合天地。甲穿虽则失黄金，剑缺犹能生紫气。塞草萋萋兵士苦，胡虏如今勿胡虏。封侯十万始无心，玉关生入君看取。

敬请光临学海Delphi站
http://delphi.studysea.net
学海无涯，让我们共同成长！

信息

登陆以后才能回复