delphi 禁用掉窗口中的所有组件

procedure DisableAllControls(m_form: TWinControl; m_enable : Boolean = false);
var i : integer;
begin
//禁用窗口中所有组件
//m_enabled = true 表示启用
for i := 0 to m_form.ComponentCount - 1 do
begin
if m_form.Components[i] is TCustomTreeView then
(m_form.Components[i] as TCustomTreeView).Enabled := m_enable;
if m_form.Components[i] is TCustomButton then
(m_form.Components[i] as TCustomButton).Enabled := m_enable;
if m_form.Components[i] is TCustomDBGridEh then
(m_form.Components[i] as TCustomDBGridEh).Enabled := m_enable;
if m_form.Components[i] is TToolBar then
(m_form.Components[i] as TToolBar).Enabled := m_enable;
if m_form.Components[i] is TGroupBox then
(m_form.Components[i] as TGroupBox).Enabled := m_enable;
end;
if m_form is TForm then  //最后禁用掉自己
(m_form as TForm).Enabled := m_enable;
end;