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

最新推荐文章于 2021-04-16 17:34:17 发布

原创最新推荐文章于 2021-04-16 17:34:17 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi

Delphi 专栏收录该内容

53 篇文章

订阅专栏

本文介绍了一个Delphi过程，用于批量禁用窗体上的多种控件，包括按钮、树视图、数据库网格等，并提供了详细的实现代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;