Como criar vários componentes em tempo de execução? (URGENT)

Delphi

20/10/2003

Quero criar vários QRLabels em tempo de execução, mas não estou conseguindo atribuir as propriedades (LEFT, TOP), pois não sei como atribuir um NOME ao novo componente.

Como devo fazer ???

Grato,

Douglas Pires


Dgpires

Dgpires

Curtidas 0

Respostas

Dgpires

Dgpires

20/10/2003

ae pessoal,
Finalmente consegui...
pra quem tem a mesma duvida:

var MatNova : TQRLabel;
begin
Topo := 200;
Esquerda := 8;
for i:=SQLCDS_Rel_Mat_Novas.RecordCount to (SQLCDS_Rel_Mat_Novas.FieldByName(´QT_UNIDADES´).AsInteger-1) do
  begin
   MatNova := TQRLabel.Create(Self);
    with MatNova do
    begin
      Name := ´QrLabelMatNova´ + IntToStr(i);
      Parent := DetailBand1;
      Width := 30;
      Height := 17;
      Top := Topo;
      Left := Esquerda;
      Caption := IntToStr(SQLCDS_Rel_Mat_Novas.FieldByName(´CD_CONTRATO´).AsInteger + i)
    end;
    Esquerda := Esquerda + 32;
    if Esquerda > 680 then
      begin
       Topo := Topo + 18;
       Esquerda := 8;
      end;
  end;
end;



GOSTEI 0
POSTAR