Zuerst solltest du den Labels aussagekräftige Namen geben.
Das mit den Properties geht am Beispiel eines Labes so:
Delphi-Quellcode:
unit Report1;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls;
type
TQuickReport1 =
class(TQuickRep)
QRBand1: TQRBand;
QRLabelGrain: TQRLabel;
private
fGrain:
string;
procedure SetGrain(Value:
string);
public
property Grain:
String read fGrain
write SetGrain;
end;
var
QuickReport1: TQuickReport1;
implementation
{$R *.DFM}
procedure TQuickReport1.SetGrain(Value:
string);
begin
fGrain:=Value;
QRLabelGrain.Caption:=fGrain;
end;
end.
Zugriff von außen:
QuickReport1.Grain := irgendwas;