DELPHI SPEEDBUTTON 버튼에서 이미지를 동적으로 로드합니다(IMAGE 및 IMAGELIST에서).

484 단어 delphiwindows
1. 직접 코드
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;

좋은 웹페이지 즐겨찾기