控制一个窗体上的一类控件显示

//delphi中控制控件的方法
//传入参数是PANEL 或Form

procedure TCT_WJJG. Set_Controls(obj_Component:TComponent);
var
int_Number:integer;
begin
for int_Number:=0 to obj_Component.ComponentCount-1 do
begin
if(obj_Component.Components[int_Number] is TDataEdit) then
begin
TDataEdit(obj_Component.Components[int_Number]).Enabled:=false;
end;
if(obj_Component.Components[int_Number] is TButton) then
begin
TButton(obj_Component.Components[int_Number]).Enabled:=false;
end;
end;
end;