求一个取得控件名的程序

Question

我定义了一个变量a,和100个按钮。
如果a为1，则按钮button1不能使用
如果a为2，则按钮button2不能使用
依次如果a为100，则按钮button100不能使用

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i, a: integer;
begin
  a := 2;
  for i:=0 to self.ComponentCount-1 do
    if (self.Components[i] is TButton) and (i=a) then
      (Components[i] as TButton).Enabled := false;
end;

Answer 2

procedure TForm1.Button4Click(Sender: TObject);
var
  a: integer;
begin
  a := 2;
  if FindComponent('Button'+IntToStr(a)) <> nil then
      TEdit(FindComponent('Button'+IntToStr(a))).Enabled := false;
end;