SpeedButton: Glyph in der Laufzeit ändern mit ImageList

[Hawkeye219]

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