Hallo DataCool,
mit Deiner Version setzt Du lediglich die lokale Variable (den Parameter) TargetBmp auf den Wert NIL.
Du mußt einen Zeiger auf den SpeedButton übergeben und dessen Eigenschaft Glyph ersetzen:
Delphi-Quellcode:
procedure TfrmMain.GetBitmapFromImageList(aButton: TSpeedButton; ImgIdx: Integer; SourceImgL: TImageList);
begin
aButton.Glyph := Nil;
SourceImgL.GetBitmap(ImgIdx,aButton.Glyph);
end;
// ...
// Aufruf der Procedure
GetBitmapFromImageList(speddButton1,0,ImageList1);
So könnte es funktionieren.
Gruß Hawkeye