TImage dynamisch erzeugen und befüllen

**ProLeg**

Hallo ich Programmier gerade einen Bankautomaten welcher bei der Ausgabe von dem Geld die Bilder anzeigen soll.
Da es ja immer nee UNterschiedliche Anzahl von Geldschien und Münzen sind brauch ich auch immer unterschiedlich viele TImage Komponenten. So das ich sie weden der Laufzeit dynamisch mithilfe einer TComponentList erzeuge. NUr ist mein Probelem das er mir die erstellen bilder nicht anzeigt.
Hab mal nur nee klein Code geschriben der das gleiche macht gepostet:
Hinweis:
TMoneyOut ist das Formular auf welchen das TImage angezeigt werden sollen.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMoneyOutput.BtnGetMoneyClick(Sender: TObject);

{---------------------------------------------------------------------------------------------------

Beschreibung:

---------------------------------------------------------------------------------------------------}

var

   I,J : Integer;

   PrintOut : TMoneyBoxArray;

   Text : String;

   betrag : double;

   WidthCounter : Integer;

   HeigthCounter : Integer;

   path : String;

   ImageList : TComponentList;

   ListIndex : Integer;

   img : TImage;

   pic : TPicture;

begin

   pic := TPicture.Create;

   Text := '';

   img := TImage.Create(self);

   img.Picture.LoadFromFile('img/10.bmp');

   img.AutoSize := true;

   img.Width := 20;

   img.Height := 20;

   img.Update;

   img.Align := alnone;

   img.Visible := true;

   img.Enabled := true;

   img.Show;

   img.BringToFront;

   img.Refresh;

   img.Repaint;

end;

Wie ihr seht hab ich schon viel ausprobiert damit er mir das Bild anzeigt. Hab auhc schon die ganz Form refesht und auch self.repaint ausprobiert. Bring alles nicht.

Hoff das mit jemand weiterhelfen kann hab nähmlich keien plan mehr

MfG
ProLeg

TImage dynamisch erzeugen und befüllen

TImage dynamisch erzeugen und befüllen

Forumregeln