超简单问题：button1.click如何写成'button'+'1'.click

Question

if (FindComponent('button' +IntToStr(1)) is TButton) then
    (FindComponent('button' +IntToStr(1)) as TButton).Click;

Answer 1

////////////////////////////////////////////////////////////////////
//控件组读取
///////////////////////////////////////////////////////////////////
procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
  vComponent: TComponent;
begin
  for I := 1 to 10 do begin
    vComponent := FindComponent('Label' + IntToStr(I));
    if Assigned(vComponent) then
      TLabel(vComponent).Caption := '试试看';
  end;
end;

Answer 2

windindance(风舞轻扬) 乃高手