DELPHI SPEEDBUTTON按钮动态加载图片（从IMAGE和IMAGELIST）

最新推荐文章于 2024-10-26 15:04:22 发布

以后换名字

最新推荐文章于 2024-10-26 15:04:22 发布

阅读量2.8k

点赞数

分类专栏： delphi windows

本文链接：https://blog.csdn.net/weixin_44387646/article/details/87785348

版权

delphi windows 专栏收录该内容

31 篇文章

订阅专栏

一、直接上代码

procedure TForm2.Button2Click(Sender: TObject);
var
  bmp: Tbitmap;

  Stream: TMemoryStream;
begin
  bmp := Tbitmap.Create;
  // ImageList1.GetBitmap(1, bmp); // IMAGELIST转
  // Image1.Picture.Assign(bmp); // IMAGE转
  Stream := TMemoryStream.Create;
  Image1.Picture.SaveToStream(Stream); // IMAGE控件转流
  // bmp.SaveToStream(Stream); //
  Stream.Position := 0;
  SpeedButton1.Glyph.LoadFromStream(Stream); // 从流加载
  Stream.Free;
  bmp.Free;
end;