In QRStringsband zur Laufzeit Labels erzeugen

[messie]

Hallo,

das hier funzt nich':

Delphi-Quellcode:

procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
var
  counter : integer;
  label99 : TQRLabel;
begin
  if counter < 200 then
  begin
    MoreData := true;
    inc(counter);
    label99 := TQRLabel.Create(SB1);
    label99.Left := 350;
    label99.Top := 8;
    SB1.Enabled := true;
    SB1.Items.Clear;
    SB1.Items.Add('');
    QRLabel2.Caption := IntToStr(counter);
    label99.Caption := IntToStr(counter - 1);
  end
  else
  begin
    if SB1.Height < 0 then
      sleep(200);
    MoreData := false;
  end;
end;

Ich bekomme das Label nicht zu sehen. Wenn ich versuche, es via parent an das Band zu kleben, tritt eine Exception auf. Ich kann hier nur die zur Entwurfszeit erstellten Labels anzeigen.

Liegt es an mir oder an QR351?

Grüße, Messie

[Union]

Bei mir geht es so:

Delphi-Quellcode:

label99 := TQrLabel(SB1.AddPrintable(TQRLabel));

[messie]

Zitat:

Zitat von Union

Bei mir geht es so:

Delphi-Quellcode:

label99 := TQrLabel(SB1.AddPrintable(TQRLabel));

Führt bei mir zum selben Fehler...

Messie

[messie]

Jetzt geht's bei mir auch... :wall:

Kleiner Denkfehler: ich hatte das Label bei der Datenübergabe anstatt vorher erzeugt, also 200mal. Das lief dann schief.

Danke, Messie