Hallo,

versuche ein QuickReportImage dynamisch zu erstellen. Auf ein Blatt sollen 27 davon drauf passen (Maße vorhanden). Es werden aber nicht immer alle 27 gebraucht. Es kann auch vorkommen, dass nur Images von 13 bis 27 gebraucht werden. Habe nun folgenden Code

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormClick(Sender: TObject);
var
  bcf:TQRImage;
begin
   bcf:=TQRImage.Create(Self);
   bcf.Name:='BarCodeFieldX';
   bcf.Top:=200;
   bcf.Width:=QRImage1.Width;
   bcf.Left:=QRImage1.Left;
   bc.Text:='as';
   bc.DrawBarcode(bcf.Canvas);
   bcf.Show;
end;

Aber das Image erscheint nicht. Alle statisch vorhandenen Images werden angezeigt. Was mache ich falsch?

Parent fehlt wohl in deiner Definition.

Grüße
Mikhal

*klatsch*
danke. Habe ich ganz vergessen...funzt.