用于启用或禁用按钮的delphi布尔过程

Question

我想创建一个启用或禁用按钮的过程,我可以用一个程序吗？例如像这样:

Procedure MainForm.buttonsEnabled(boolean);
BEGIN
if result=true then
begin
button1.enabled:=True;
button2.enabled:=True;
button3.enabled:=True;
end else
begin
button1.enabled:=false;
button2.enabled:=false;
button3.enabled:=false;
end;
END;

当我调用程序禁用或启用按钮时,我可以称之为

buttonsEnabled:=True;// to enable button
buttonsEnabled:=False;// to disable button

我能这样做吗？我找不到以简单的方式做到这一点的方法

Answer 1

procedure MainForm.buttonsEnabled(AEnabled: Boolean);
begin
  button1.Enabled := AEnabled;
  button2.Enabled := AEnabled;
  button3.Enabled := AEnabled;
end;

buttonsEnabled(True);
//buttonsEnabled(False);

Answer 2

创建表单的属性:

type
  TMyForm = class(TForm)
  private
    procedure SetButtonsEnabled(Value: Boolean);
  public // or private perhaps, depending on your usage
    property ButtonsEnabled: Boolean write SetButtonsEnabled;
  end;

像这样实现它:

procedure TMyForm.SetButtonsEnabled(Value: Boolean);
begin
  button1.Enabled := Value;
  button2.Enabled := Value;
  button3.Enabled := Value;
end;

然后你可以按照你的意愿使用它:

ButtonsEnabled := SomeBooleanValue;