이 소스를 가지고 그냥 폼에 이미지를 올리면 됩니다.
그런데 판넬위에 이미지를 놓으면 되지가 않습니다.
이유를 몰라서 이렇게 올립니다.
아시는 분 시간이 되시면 좀 자세히 가르쳐 주세요
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;