Zitat von
Gehstock:
Delphi-Quellcode:
procedure TForm2.ComboBox1Change(Sender: TObject);
var bitmap : tbitmap;
begin
bitmap := tbitmap.create;
getimage(ImageList1,0,bitmap);
Image1.picture.bitmap.assign(bitmap);
freeandnil(bitmap);
end;
end.
Wie schon gesagt für ein anders bild musst du einen anderen parameter übergeben und dass tust du nicht.
Richtig wäre:
Delphi-Quellcode:
procedure TForm2.ComboBox1Change(Sender: TObject);
var bitmap : tbitmap;
begin
bitmap := tbitmap.create;
getimage(ImageList1,combobox1.itemindex,bitmap);
Image1.picture.bitmap.assign(bitmap);
freeandnil(bitmap);
end;
end.
Ntürlich ist das sehr code spezifisch aber bei denem sollte es so wie ich es verstanden habe gehen ...
getimage(ImageList1,combobox1.itemindex,bitmap);
das musst du ändern