Dynamisches Erzeugen von Grafiken

[little_budda]

Hallo,

ich nutze folgenden Code um mir dynamisch Images zu erstellen.

Delphi-Quellcode:

      aMyImages[iAnzIpFound] := timage.Create(self);
      aMyImages[iAnzIpFound].Left := (iAnzFound * 150) + 10;
      aMyImages[iAnzIpFound].top := 50;
      aMyImages[iAnzIpFound].Picture.LoadFromFile(startpfad + 'bilder\bild_01.bmp');
      aMyImages[iAnzIpFound].Canvas.Font.Name := 'Courier New';
      aMyImages[iAnzIpFound].Canvas.Font.Size := 9;
      aMyImages[iAnzIpFound].Canvas.Brush.Color := $00CCFFFF;
      aMyImages[iAnzIpFound].Canvas.Pen.Color := clMaroon;
      aMyImages[iAnzIpFound].Canvas.TextOut(30, 105, 'Hallo Welt');
      aMyImages[iAnzIpFound].Show;

aMyImages ist deklariert als Array of Timage

Leider zeigt er mir die Images aber nicht an.

Wo liegt mein Fehler?

Gruß Holger.

:gruebel:

[Hawkeye219]

Hallo Holger,

das ist ein klassischer Fehler: ohne eine Zuweisung zur Eigenschaft TImage.Parent wirst du das Bild niemals zu Gesicht bekommen.

Gruß Hawkeye