Abfragen welche grafik aus imagelist geladen wurde

[ferby]

Hallo,

ich habe eine imagelist mit 5 grafiken und 9 images.

jedes der 5 images bekommt durch zufall eine der 5 grafiken aus der imagelist:

Delphi-Quellcode:

    for i2:=1 to 9 do
    begin
      randomize;
      y:=random(5);
      bm := TBitmap.create;
      Imagelist.getbitmap(y,Bm);
      TImage(FindComponent('s' + inttostr(i2))).Picture.Bitmap := BM;
    end;

Ich möchte jetzt an einer ganz anderen Programmstelle abfragen welche grafik in image ein angezeigt wird.

Ich habe mir sowas überlegt:

Delphi-Quellcode:

    bm := TBitmap.create;
    if s1.picture.bitmap=Imagelist.getbitmap(1,Bm) then close;

aber da kommt der fehler [Fehler] Unit1.pas(80): Inkompatible Typen


kann mir wer weiterhelfen?


Nochmal kurz: Ich möchte abfragen welche grafik, aus einer imagelist, in einen image angezeigt wird.


ferby

[marabu]

Hallo ferby,

durch die Zuweisung des ImageIndex "y" an die Eigenschaft "Tag" deiner Imagekomponente bist du jederzeit im Bilde. Du solltest dir allerdings nochmal die Dokumentation zu Randomize() durchlesen.

Delphi-Quellcode:

for i2 := 1 to 9 do begin
  y := random(5);
  bm := TBitmap.create;
  Imagelist.getbitmap(y, bm);
  img := TImage(FindComponent('s' + IntToStr(i2)));
  img.Picture.Bitmap := bm;
  img.Tag := y;
end;

Grüße vom marabu

[ferby]

Hallo,

danke!




Meist do wegen den randomize; ? Das war ein versehen.

Ferby