var qrLables: Array of Tqrlabel;SetLength(qrLables,doquery.RecordCount);
while not adoquery.eof do
begin
qrLables[i] := Tqrlabel.Create(QRep);
qrLables[i].Parent := columnHB;
qrLables[i].Alignment := taCenter;
qrLables[i].Left := j;
qrLables[i].Top := 3;
qrLables[i].Height := columnHB.Height - 3;
qrLables[i].Width := NewDisplayWidth[i];
//以上这些属性根据你的实际需要设置
inc(i)
adoquery.next
end;
end;
while not adoquery.eof do
begin
qrLables[i] := Tqrlabel.Create(QRep);
qrLables[i].Parent := columnHB;
qrLables[i].Alignment := taCenter;
qrLables[i].Left := j;
qrLables[i].Top := 3;
qrLables[i].Height := columnHB.Height - 3;
qrLables[i].Width := NewDisplayWidth[i];
//以上这些属性根据你的实际需要设置
inc(i)
adoquery.next
end;
end;
i:integer;
begin
i:=1;
SetLength(qrLables,adoquery.RecordCount);
while not adoquery.eof do
begin
qrLables[i]:=Tqrlabel.Create(QuickRep1);
qrLables[i].Parent:=columnHB;
qrLables[i].Alignment:=taCenter;
qrLables[i].Left:=i;
qrLables[i].Top:=3;
qrLables[i].Height:=columnHB.Height-3;
qrLables[i].Width:= NewDisplayWidth[i];
inc(i)
adoquery.next
end;
end;
能对以上代码解释一下吗?
很多地方不明白:
例如:qrLables[i].Parent:=columnHB;重的columnHb所指为谁?
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
—————————————————————————————————
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
—————————————————————————————————