如何一次性禁用面板上的所有独立组件（而非禁用面板本身）

当然有快捷方法，不用逐个手动修改组件的Enabled属性——你可以通过遍历面板的子组件集合，批量设置它们的状态。

以Delphi为例，你可以写一个简单的遍历函数：

procedure DisableAllPanelComponents(APanel: TPanel);
var
  I: Integer;
  ChildControl: TControl;
begin
  for I := 0 to APanel.ControlCount - 1 do
  begin
    ChildControl := APanel.Controls[I];
    ChildControl.Enabled := False;
    // 如果面板里还有嵌套的容器组件（比如子Panel），递归处理内部组件
    if ChildControl is TWinControl then
      DisableAllPanelComponents(TPanel(ChildControl));
  end;
end;

调用的时候直接传入你的目标面板即可：

DisableAllPanelComponents(YourPanelName);

补充说明 #

• 如果你的面板没有嵌套容器，只需要处理直接子组件，可以去掉递归部分，只保留循环设置Enabled := False的代码。
• 这种方式会真正修改每个组件自身的Enabled属性，满足你“让组件显示灰色但可见”的需求，和直接禁用面板的效果一致，但能保留每个组件独立的状态记录（后续如果需要单独启用某个组件，直接修改它的Enabled即可）。

内容的提问来源于stack exchange，提问作者Onions Have Layers