TImage mit Bild aus ImageList füllen

[Bummi]

wenn bereits ein Bitmap vorhanden ist wird per ImageList1.GetBitmap auf dieses gemalt (kein neues erstellt), dass Image selbst bekommt davon nichts mit. Somit hast Du 2 Optionen,

Delphi-Quellcode:

begin
   //OPT 1. wenn Du eine neues Bitmap willst
   Image1.Picture := nil;

   ImageList1.GetBitmap(1, Image1.Picture.Bitmap);

   //OPT. 2 wenn Du auf das bestehende Bitmap malen willst
   Image1.Invalidate;
end;