BitBtn einen Glyph aus einer Imagelist zuweisen

[sakura]

That's it!

Code:

[b]procedure[/b] TForm1.BitBtn1Click(Sender: TObject);
[b]var[/b]
  Bmp: TBitmap;
[b]begin[/b]
  Bmp := TBitmap.Create();
  [b]try[/b]
    [b]if[/b] ImageList1.GetBitmap(0, Bmp) [b]then[/b]
      BitBtn1.Glyph.Assign(Bmp);
  [b]finally[/b]
    Bmp.Free;
  [b]end[/b];
[b]end[/b];