안녕 하세요?

BacTeria 박종민입니다.

Memo컴포넌트에 왜 굳이 그림을 넣으려 하시는지...

Memo 컴포넌트는 Canvas 속성을 가지지 않기 때문에 만만한 일이 아니죠.

하지만 아래와 같은 편법(?)으로 그림을 그림을 그려주는 방법이 있습니다.

우선 폼에 Image 컴포넌트, Memo 컴포넌트 그리고 버튼을 하나씩 올려 놓고

아래와 같이 코딩 해보세요.

procedure TForm1.Button1Click(Sender: TObject);
begin
  BitBlt(GetDC(Memo1.Handle), 0, 0, Image1.Width, Image1.Height,
                          Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
end;

그림이 그려지기는 하나 영... 그림 위에서 글씨가 써지는 부분이 깨지잖아요.

어디서 보니깐 투명 메모 컴포넌트가 있는것 같던데... 이미지 컴포넌트 위에 그걸

올려 놓고 쓰시는게 더 나은 결과를 나을지도 모르겠네요.

이만... 청주에서 박종민...