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

本文整理自网络，侵删。

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

一、直接上代码

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;
 
 

相关阅读 >>

Delphi 把窗体上的所有edit清空怎么做

Delphi 打开android应用信息

Delphi memo中禁止汉字

Delphi 最简单的升级下载代码

Delphi [fmx]如何使用剪贴板

Delphi winapi: getmodulehandle - 获取一个模块(exe 或 dll)的句柄

Delphi 解决“richedit line insertion error”错误

Delphi createmutex建立互斥对象，并且给互斥对象起一个唯一的名字

Delphi tserversocket 发送消息之前检查客户端是否仍处于连接状态

Delphi防止同时出现多个应用程序实例

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » DELPHI SPEEDBUTTON按钮动态加载图片（从IMAGE和IMAGELIST）