Umwandlung TIcon -> TBitmap

[sakura]

That's it.

Code:

[b]var[/b]
  Bitmap: TBitmap;
  Icon: TIcon;
[b]begin[/b]
  Icon := TIcon.Create;
  Bitmap := TBitmap;
  [b]try[/b]
    Icon.Handle := ICONHANDLE von Irgendwo;
    Bitmap.Width := Icon.Width;
    Bitmap.Height := Icon.Height;
    Bitmap.Canvas.Draw(0, 0, Icon);
    .....
  [b]finally[/b]
    Bitmap.Free;
    Icon.Free;
  [b]end[/b];
[b]end[/b];