Mehrere TImages mit einer Procedure erstellen

[himitsu]

Man kann statt der TObjektList /TObjektList<TBild> auch ein TObjectDictionary<string,TBild> verwenden, denn da kann man dann auch noch schöner auf ein bestimmtes Bild zugreifen.

Also statt über den Index, welchen man vorher noch suchen müsste, direkt über den Namen.

Delphi-Quellcode:

//MeineObjectList.Add(Test);
MeineObjectList.Add(Key, Test);  // oder MeineObjectList.Add(Test.ImageName, Test);

DasBild := MeineObjectList['DerBildName'];

Oder statt dem Namen direkt die Koordinaten

Delphi-Quellcode:

var MeineObjectList: TObjectDictionary<TPoint,TBild>;

MeineObjectList.Add(Point(FeldY, FeldY), Test);

DasBild := MeineObjectList[Point(HoleY, HoleY)];