Ein Icon in ein SpeedButton einbauen!

[m-werk]

Hi Leute, kann mir jemand sagen, wie ich ein ICON in ein SpeedButton einbauen kann?

Wie ich eine Grafik hineinbekomme weiss ich. Nur ich finde nichts für ein ICON!

[jbg]

Das geht nur etwas umständlich:

Code:

[b]function[/b] CreateBitmapFromIcon(Icon: TIcon): TBitmap;
[b]begin[/b]
  Result := TBitmap.Create;
  [b]try[/b]
    Result.Width := Icon.Width;
    Result.Height := Icon.Height;
    Result.Canvas.Draw(0, 0, Icon);
  [b]except[/b]
    Result.Free;
    [b]raise[/b];
  [b]end[/b];
[b]end[/b];


bmp := CreateBitmapFromIcon(Application.Icon);
[b]try[/b]
  SpeedBtn.Glyph.Assign(bmp);
[b]finally[/b]
  bmp.Free;
[b]end[/b];

[m-werk]

Hi, muß ich das bei allen Buttons, wo ich ein Icon haben möchte so machen?

Und wie kann ich dann genau eines von mir bestimmtes Icon zum Button zuweisen?