L
lmd
Unregistered / Unconfirmed
GUEST, unregistred user!
有几句代码，我有些看不懂，请你们帮忙解释一下
procedure Tp_charge.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
i: integer;
begin
if (Self.QRPrinter.Destination = qrdPrinter) and (TQRBand1 <> nil) then
begin
for i := 0 to TQRBand1.ControlCount - 1do
begin
if not (TQRBand1.Controls is TQRDBText) then
begin
TQRPrintable(TRQBand1.Controls).Enabled :=false
end;
end;
end;
end;
是不是说除了TQRDBText其他控件都隐藏呢？那他隐藏的条件是什么呢？我怎么没看出来，还是上面没写，就没有判断直接隐藏呢
procedure Tp_charge.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
i: integer;
begin
if (Self.QRPrinter.Destination = qrdPrinter) and (TQRBand1 <> nil) then
begin
for i := 0 to TQRBand1.ControlCount - 1do
begin
if not (TQRBand1.Controls is TQRDBText) then
begin
TQRPrintable(TRQBand1.Controls).Enabled :=false
end;
end;
end;
end;
是不是说除了TQRDBText其他控件都隐藏呢？那他隐藏的条件是什么呢？我怎么没看出来，还是上面没写，就没有判断直接隐藏呢
