本文整理自网络,侵删。
一、直接上代码
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 捕捉异常 try except语句 和 try finally语句用法以及区别
Delphi winapi: writeprivateprofilestring、getprivateprofilestring - 简单读写 ini 文件
更多相关阅读请进入《Delphi》频道 >>