procedure TForm1.FormPaint(Sender: TObject);
var
bmp: TGPBitmap;
g: TGPGraphics;
begin
g := TGPGraphics.Create(Canvas.Handle);
bmp := TGPBitmap.Create(HInstance ,'B1');
g.DrawImage(bmp, 10, 10);bmp.Free;
g.Free;
end;
var
bmp: TGPBitmap;
g: TGPGraphics;
begin
g := TGPGraphics.Create(Canvas.Handle);
bmp := TGPBitmap.Create(HInstance ,'B1');
g.DrawImage(bmp, 10, 10);bmp.Free;
g.Free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货