Question

Delphi如何将一张图片画在窗体上？

假如有了图片的句柄HBitmap，如何将它画在窗体上？

Answer 1

你的句柄是怎么来的？

procedure TForm1.FormPaint(Sender: TObject);
const
  ImgPath = 'c:\temp\test.bmp';
var
  img: TGPImage;
  bit: TBitmap;
  g: TGPGraphics;
begin
  bit := TBitmap.Create;
  bit.LoadFromFile(ImgPath);
  img := TGPBitmap.Create(bit.Handle, bit.Palette);
  g := TGPGraphics.Create(Canvas.Handle);
  g.DrawImage(img, 0, 0);
  g.Free;
  bit.Free;
  img.Free;
end;

追问

是从资源里获取的

Answer 2

Form1.Canvas.Handle:= HBitmap;

Answer 3

放TImage上行不？