SpeedButton - kein Bild?

[Martin K]

So, hab mal fix was gebastelt

Ist es das, was Du suchst?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ICO: TIcon;
  Large, Small: HIcon;
begin
  ExtractIconEx(PChar(Edit1.Text), 0, Large, Small, 1);
  ICO := TIcon.Create;
  try
    ICO.Handle := Small;  //oder Large, wenn du das große Symbol willst
    SpeedButton1.Glyph.Width := ICO.Width;
    SpeedButton1.Glyph.Height := ICO.Height;
    SpeedButton1.Glyph.Canvas.Draw(0, 0, ICO);
  finally
    ICO.Free;
  end;
end