Q&A

  • 소스를 좀 봐 주세요
이 소스를 가지고 그냥 폼에 이미지를 올리면 됩니다.

그런데 판넬위에 이미지를 놓으면 되지가 않습니다.

이유를 몰라서 이렇게 올립니다.

아시는 분 시간이 되시면 좀 자세히 가르쳐 주세요



procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);

var

P: TPoint;

ImageRect: TRect;

begin

// 마우스 좌표를 구합니다.

P := Point(Msg.XPos, Msg.YPos);

// 마우스 좌표를 클라이언트 좌표로 바꿉니다.

P := ScreenToClient(P);

ImageRect := Rect(Image1.Left, Image1.Top, Image1.left +Image1.Width,

Image1.top+ Image1.Height);

// 마우스 포인터가 이미지 내에 있다면

if PtInRect(ImageRect, P) then

Msg.Result := htcaption // 캡션바에서 일어난 일인 것처럼 폼을 속인다.

else

inherited;

end;

0  COMMENTS