Delphi 父窗体按钮

Question

有没有办法禁用父窗口按钮？我有一个被很多表单调用的“工作”表单，我想禁用父表单按钮，直到它完成它的工作。然后重新打开它们。

我想做一些附加到 OnShow 事件和 onClose 事件的事情。

谢谢

-布拉德

Answer 1

创建您想要调用的表单，如下所示：

  unit fMyModalForm;
  interface
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs;
  type
    TfrmMyModalForm = class(TForm)
      procedure FormShow(Sender: TObject);
      procedure FormClose(Sender: TObject; var Action: TCloseAction);
    private
      fCallingForm: TForm;
      { Private declarations }
    public
      { Public declarations }
       property CallingForm: TForm read fCallingForm write fCallingForm;
    end;
  (*
  var
    frmMyModalForm: TfrmMyModalForm;
  *)
  implementation

  {$R *.dfm}

  procedure TfrmMyModalForm.FormShow(Sender: TObject);
  begin
     fCallingForm.Enabled := False;
  end;

  procedure TfrmMyModalForm.FormClose(Sender: TObject;
    var Action: TCloseAction);
  begin
     fCallingForm.Enabled := True;
  end;

  end.

然后在您想要调用此模态表单的按钮之后：

  unit fMain;

  interface

  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    fMyModalForm;

  type
    TfrmMain = class(TForm)
      btnCall: TButton;
      btn1: TButton;
      btn2: TButton;
      procedure btnCallClick(Sender: TObject);
    private
      { Private declarations }
        f : TfrmMyModalForm;
    public
      { Public declarations }
    end;

  var
    frmMain: TfrmMain;

  implementation


  {$R *.dfm}

  procedure TfrmMain.btnCallClick(Sender: TObject);
  begin
     if not Assigned(f)
     then begin
        f := TfrmMyModalForm.Create(Self);
        f.CallingForm := Self;
     end;
     f.Show();
  end;

  end.

如果您只想禁用所有按钮，您可以迭代它们，而不是禁用 CallingForm，仅禁用调用表单。请参阅 Stack Overflow 主题（以及我的答案）：动态转换表单编辑：或查看 _J_ 的答案（基本上显示了主题）。

不过，我会使用操作而不是按钮。

Answer 2

如果辅助窗口打开，执行某些操作并关闭，那么使用 ShowModal 而不是 Show 打开它是有意义的，这样用户就无法使用主窗体直到第二张表格关闭。

如果您想遍历所有按钮并禁用或启用它们，代码将如下所示：

var
  i: Integer;
begin
  for i := 0 to MainForm.ComponentCount - 1 do
    if (MainForm.Components[i] is TButton) then
      TButton(MainForm.Components[i]).Enabled := False;
end;

Answer 3

对于这样的东西，您只需要 1 行代码和一个 TActionList 组件。

创建一个包含操作的操作列表，并将该操作链接到按钮。操作具有 OnUpdate 事件，可让您确定是否应启用该操作（以及链接的按钮）。每次操作应该知道是否必须启用它时，都会触发 OnUpdate 事件。