Fórum Manipulando componentes #249415

procedure TfrmMain.btCriarClick(Sender: TObject);
var 
  gBox: TGroupBox;
  lAb: TLabel;
  iMage: TImage;
  i: Integer;
begin
  for i := 1 to 5 do
  begin
    //Cria GroupBox
    gBox := TGroupBox.Create(frmMain);
    gBox.Caption := ´Teste´ + InttoStr(i);
    gBox.Name := ´Afet´ + IntToStr(i);
    gBox.Height := 113;
    gBox.Width := 145;
    gBox.Left := 30 * i;
    gBox.Top := 50 * i;
    frmMain.InsertControl(gBox);

    //Cria Label no Group Box
    lAb := TLabel.Create(frmMain);
    lAb.Caption := ´Felipe ´ + InttoStr(i);
    lAb.Name := ´lbl´ + InttoStr(i);
    lAb.Left := 10;
    lAb.Top := 50;
    gBox.InsertControl(lAb);

    //Cria Imagem no Group Box
    iMage := TImage.Create(frmMain);
    iMage.AutoSize := True;
    iMage.Left := 30;
    iMage.Top := 20;
    iMage.Picture.LoadFromFile(´D:\Imagens\ICO\48x48\48_(5).ico´);
    gBox.InsertControl(iMage);
end;
end;