델파이 BitBlt 함수 설명

델파이 BitBlt 함수 설명

 

일단 폼에 메모를 하나 붙이시구요...

버튼도 하나 붙이세요...

글구... 버튼의 OnClick 이벤트에다가 아래와 

같이 코딩하시구요...

 

procedure TForm1.Button1Click(Sender: TObject);

var

  FBitmap: TBitmap;

  FDC: hDC;

begin

  FDC := GetDC(Memo1.Handle);

  FBitmap := TBitmap.Create;

  FBitmap.LoadFromFile('C:\aaa.bmp');

  BitBlt ( FDC, 0, 0, Width, Height, FBitmap.Canvas.Handle, 0, 0, SRCAND );

  ReleaseDC(Handle, FDC);

  FBitmap.Free;

end;