Array
(
)

Criando QRLabel problemas

Snipa
   - 14 ago 2004

Awe pessoal fmz?
Entao eu tava querendo faze o relatorio criando QRlabels e colocando os dados.
So que quando eu clico no botao ok pra ele faze isso ele fica como se tivesse fazendo e nao acontece nada e o programa trava
Vo posta o codigo aqui ve se tem algo errado
To usando paradox,bde,delphi6
#Código


procedure TFrmEntRel.BtnOkClick(Sender: TObject);
var Dados:TQRLabel;
Altura:integer;
y:integer;
begin

y := 8;
altura:= 30;

With FrmRelDesRec.QryConta do begin
close;
Sql.Clear;
Sql.Add(´SELECT * FROM Contas WHERE CodCond = :PA´);
ParamByName(´PA´).AsInteger := strtoint(edit1.Text);
Open;
end;

While not Frmreldesrec.QryConta.eof do
begin
Dados := TQRLabel.Create(FrmRelDesRec.QuickRep1.Bands.TitleBand.Parent); //essa parte nao sei se tah certa tb
Dados.Left := 16;
Dados.Top := y;
Dados.Caption := FrmRelDesRec.QryConta.Fields[1].AsString;
Dados.Name := ´Label´ + inttostr(FrmRelDesRec.QryConta.fields[0].AsInteger);
y := y + 17;
FrmRelDesRec.QuickRep1.Bands.TitleBand.Height := altura;
altura := altura + 17;
end;

FrmRelDesRec.QuickRep1.Preview;
end;


Se alguem pude me ajuda posta ae
Flw vlw


Aroldo Zanela
   - 14 ago 2004

Colega,

Não seria mais fácil soltar um componente QRDBText dentro de uma banda de detalhe e associar ao referido campo?