如何循环的自动加QRLabel

Question

如何循环的自动加QRLabel

Answer 1

var
  qrLabels : TQrlabel;
begin
  for I := 0 to n do
  begin
    qrlabels := tqrlabel.create(self);
    with qrlabels do
    begin
      name := 'qrblabels' + inttostr(i);
      left := ...
      top := ...
      ...添加其他的属性
    end
  end;
end;

Answer 2

var
  qrLabels : TQrlabel;
begin
  for I := 0 to n do
  begin
    With  tqrlabel.create(self) do
    begin
      name := 'qrblabels' + inttostr(i);
      
      left := ...
      top := ...
      ...添加其他的属性
    end
  end;
end;
----------------
沉沦中..........