QuickReport (Visible)

Delphi

17/09/2003

Caros Colegas

O que há de errado neste código, estou tentando aplicar a propriedade, mas ela não surte afeito!

procedure TFrmImpresResult.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var sExaTit : string;
begin

with DMDbfLab do
begin
ApDSExa.GoTop;
if ApDSExa.Seek(ApTblTMPRESUL.GetString(´TMPCDEXA´)) then
sExaTit := ApDSEXA.GetString(´EXATIT´);

if (ApDSVAR.GetString(´VAREXM´) = ´S´) and (sExaTit = ´S´) then
begin
QRLblExa.Visible := False;
QRLblMat.Visible := False;
QRDBTxtExa.Visible := False;
QRDBTxtMat.Visible := False;
end
else
begin
QRLblExa.Visible := True;
QRLblMat.Visible := True;
QRDBTxtExa.Visible := True;
QRDBTxtMat.Visible := True;
end;

end;

end;


Obrigado pela ajuda!!!


Goncalves

Goncalves

Curtidas 0

Respostas

Joilson_gouveia

Joilson_gouveia

17/09/2003

Tente usar a propriedade ENABLED dos componentes:

if (ApDSVAR.GetString(´VAREXM´) = ´S´) and (sExaTit = ´S´) then
begin
[b:bb0264b2a3]QRLblExa.Enabled := False;
QRLblMat.Enabled := False;
QRDBTxtExa.Enabled := False;
QRDBTxtMat.Enabled := False; [/b:bb0264b2a3]end
else
begin
[b:bb0264b2a3]QRLblExa.Enabled := True;
QRLblMat.Enabled := True;
QRDBTxtExa.Enabled := True;
QRDBTxtMat.Enabled:= True; [/b:bb0264b2a3]end;


GOSTEI 0
Goncalves

Goncalves

17/09/2003

....


GOSTEI 0
POSTAR