你的句柄是怎么来的？
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;
Form1.Canvas.Handle:= HBitmap;
放TImage上行不？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024