【结贴】如何禁用表单上的控件**

zhdkelly

现有一个docview，用代码设置他的“DocClassID”属性，动态的加载不同的表单，表单只读时禁用他上面的控件。除了强制类型转换还有其他什么方法没有，强制类型转换需要引用表单的信息，这样做太麻烦。

shangxy

直接用TSheetDoc和TFormDoc进行强制转换。

zhdkelly

这样也可以？我要设置表单上的Radiobutton不可用，我是这样想的，就是遍历表单上的组件，如果是TRadiobutton类型,就设置Enable属性为false,但好像不起作用

zhdkelly

直接用TSheetDoc和TFormDoc进行强制转换
========================================
给个例子，极端情况就把表单上所有控件不可用

atiger

如果是在功能层访问， 参考：http://bbs.justep.com/forum.php?mod=viewthread&tid=17782
遍历某类型控件，参考： http://bbs.justep.com/forum.php?mod=viewthread&tid=25058

zhdkelly

这是我写的禁用表单上RadioButton的代码，没有实现想要的结果，帮忙分析下
//窗体显示事件
procedure TLLCT.BizFormShow(Sender: TObject);
begin
  if DocView5.Doc<>nil then
  DisEnableControl(TSheetDoc(DocView5.Doc));
end;
//禁用某个组件上的RadioButton
procedure TLLCT.DisEnableControl(AComponent:TComponent);
var
  i:integer;
begin
  for i:=0 to AComponent.ComponentCount-1 do
  begin
    if AComponent.Components is TRadioButton then
    begin
       TRadioButton(AComponent).Enabled:=False;
    end;
    //DisEnableControl(AComponent);
  end;
end;

zhdkelly

不好意思
TRadioButton(AComponent).Enabled:=False;
这段代码错了，应该是TRadioButton(Components).
不过好像不能递归哦

shangxy

for i:=0 to AComponent.ComponentCount-1 do
用downto，从大到小呢？

zhdkelly

问题解决了
谢谢
以后再用下“shangxy”的方法试试看，现在忙不过来了