이곳의 팁/강좌 란에 있는 자료를 보고 실행을 했더니

바탕화면에 그림이 바둑판처럼 여러장이 같이 나오더군요..

밑에서

procedure Tfrm_main.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 img_main.Picture.Height do

--> for Col := 0 to ClientWidth div img_main.Picture.Width do

BitBlt( Dc,

Col*img_main.Picture.Width,

Row*img_main.Picture.Height,

img_main.Picture.Width,

img_main.Picture.Height,

img_main.Picture.Bitmap.Canvas.Handle,

0, 0, SRCCOPY );



Result := 1;

end

else

Result := CallWindowProc(FPrevClientproc,

ClientHandle,

Msg,

wParam,

lParam );

end;

end;

화살표부분에서 고쳐야 할 것 같은데...

어떻게 해야 할까요???

아시는 분은 연락을..,,,,