왕초 께서 말씀하시기를...

> Parent Mdi Form의 바탕에 이미지를 넣으려고 합니다..

> 그냥 이미지 컴포넌트 넣고는 안되던데..

> 메세지맵을 이용하면 되는걸루 알고 있습니다..

> 메세지를 이용한 Mdi 바탕폼에 이미지 넣기에 대해서

> 알고 싶습니다..

> 어떻게 해야할지.. 도움 부탁드립니다..



왕초님 안녕하세요?

아래 내용은 뉴스그룹에 소개되었던 MDI메인 폼에

이미지를 삽입하는 팁입니다.

보시고 도움 되시길 바랍니다.



1. 새로운 Project를 만든다.

2. Form의 Style을 fsMDIForm로 한다.

3. Form에 넣은 Bitmap을 정한다.

4. Private 선언부에 아래내용을 선언한다.



FClientInstance : TFarProc;

FPrevClientProc : TFarProc;

procedure ClientWndProc(var Message: TMessage);



5. 아래의 procedure를 구현부에 넣는다.



procedure TMainForm.ClientWndProc(var Message: TMessage);

var

Dc : hDC;

Row : Integer;

Col : Integer;

begin

with Message do

case Msg of

WM_ERASEBKGND:

begin

Dc := TWMEraseBkGnd(Message).Dc;

for Row := 0 to ClientHeight div Image1.Picture.Height do

for Col := 0 to ClientWidth div Image1.Picture.Width do

BitBlt(Dc,

Col * Image1.Picture.Width,

Row * Image1.Picture.Height,

Image1.Picture.Width,

Image1.Picture.Height,

Image1.Picture.Bitmap.Canvas.Handle,

0,

0,

SRCCOPY);

Result := 1;

end;

else

Result := CallWindowProc(FPrevClientProc,

ClientHandle,

Msg,

wParam,

lParam);

end;

end;



6. OnCreate Method를 아래와 같이 작성한다.



FClientInstance := MakeObjectInstance(ClientWndProc);

FPrevClientProc := Pointer(GetWindowLong(ClientHandle,

GWL_WNDPROC));

SetWindowLong(ClientHandle,

GWL_WNDPROC, LongInt(FClientInstance));