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 xe5 android toast

选择 Delphi 的 9 条理由

Delphi xe8 用httpclient下载文件

Delphi汉字与多字节编码的转换

Delphi 正则表达式的匹配模式

Delphi中建议使用的语句

Delphi 删除文件函数支持撤销删除

sendmessage这个函数有很多奇妙的用法

Delphi 切换开关 toggleswitch1

python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...