1,183
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.btn1Click(Sender: TObject);
var
bit: TBitmap;
begin
bit := TBitmap.Create;
bit.LoadFromFile('1.bmp');
BitBlt(img1.Canvas.Handle, 30, 20, bit.Width, bit.Height, bit.Canvas.Handle, 0,0, SRCCOPY);
FreeAndNil(bit);
end;