delphi 组件对象传递,遍历容器内组件

var
box:TGroupBox;

for i := 0 to box.ControlCount - 1 do //取容器子组件个数
begin
checkbox := TCheckBox(box.Controls[i]); //将其转换为某个特定组件

end;

---

组件对象传递
procedure TForm1.CheckBox1Click(Sender: TObject);
//var
//check:TCheckBox;
begin
if cxclose then
begin
Exit;
end;

weizhixz(TComponent(Sender));

//check:=nil;
end;

procedure weizhixz(send:TComponent);
var
//i:integer;
s:string ;
idx:integer;
xz:TCheckBox ;
box:TGroupBox;
begin

xz:=TCheckBox(send); //将传过来的组件对象转换为特定的组件

box:= TGroupBox( xz.Parent);//取这个组件的父组件(容器下子组件取出的就是容器

end;