TImageList gibt TImage Bild, Bild wechselt aber nicht

[Super_Chemiker]

Hallo DP,
ich habe ein Problem:
Ich will einem TImage, ein Bild aus einer Imagelist zuweisen, das Bild soll aber während die Anwendung gestartet ist auf Knopfdruck wechseln.
Leider funktioniert das weder mit ImageList.Draw, noch mit ImageList.GetImage

Danke schonmal für eure Hilfe
mfG

[mkinzler]

Zeig mal deinen Code

[Super_Chemiker]

Delphi-Quellcode:

procedure TForm1.WurfClick(Sender: TObject);
begin
  randomize;
  W1 := random(5);
  W2 := random(5);
  if W1>W2 then
  begin
    WL.Draw(WB1.Canvas, 0, 0, W1);
    WL.Draw(WB2.Canvas, 0, 0, W2);
  end
  else
  begin
    WL.Draw(WB1.Canvas, 0, 0, W2);
    WL.Draw(WB2.Canvas, 0, 0, W1);
  end;
  Wurf.Enabled := true;
end;

bzw. dasselbe mit GetImage...

[toms]

Delphi-Quellcode:

 Image1.Picture.Bitmap := nil;
 ImageList1.GetBitmap(ImageIdx, Image1.Picture.Bitmap);

[Super_Chemiker]

Danke Herr Codelib Manager jetzt gehts!!!
Und danke auch an den Moderator!!!
An dem Problemchen knabber ich nämlich schon lange!

[SimStar001]

Delphi-Quellcode:

var Bitmap : TBitmap;
...
  imagelist1.GetBitmap(0,Bitmap)
  image1.Picture.Assign(Bitmap);