안녕하세요. 최용일입니다.

서브클래싱해보세요...

type
    TForm1 = class(TForm)
        ......
          mOldWindowProc: TWndMethod;
          procedure PanelWindowProc(var Message: TMessage);
    end;

// Panel2 이동하는넘 (SC_DragMove)
// Panel1 특정 판넬 (Left, Top)

procedure TForm1.FormCreate(Sender: TObject);
begin
    mOldWindowProc := Panel2.WindowProc;
    Panel2.WindowProc := PanelWindowProc;
end;

procedure TForm1.PanelWindowProc(var Message: TMessage);
var
    PanelRect: TRect;
    SrcRect: PRect;
begin
    if Message.Msg = WM_MOVING then
    // WM_MOVING 이동전에 발생하는 메세지
    begin
        // 특정판넬(Panel1)의 영역좌표를 글로벌좌표로 ...
        PanelRect.TopLeft := Panel1.ClientToScreen(Panel1.ClientRect.TopLeft);
        PanelRect.BottomRight := Panel1.ClientToScreen(Panel1.ClientRect.BottomRight);
        // SrcRect = 판넬이 이동될 위치정보
        SrcRect := PRect(Message.LParam);
        if not PtInRect(PanelRect, SrcRect.TopLeft) then
        // 특정판넬의 위치를 벗어났는가?
        begin
            // 특정판넬의 위치(Left,Top)를 벗어나지 못하도록 이동좌표값수정
            if SrcRect.Left < PanelRect.Left then
            begin
                SrcRect.Right := SrcRect.Right + (PanelRect.Left - SrcRect.Left);
                SrcRect.Left := PanelRect.Left;
            end;
            if SrcRect.Top < PanelRect.Top then
            begin
                SrcRect.Bottom := SrcRect.Bottom + (PanelRect.Top - SrcRect.Top);
                SrcRect.Top := PanelRect.Top;
            end;
        end;
    end;
    // 원래의 메세지핸들러 실행
    mOldWindowProc(Message);
end;

^^ 항상 즐코하세요...

귀찮으셨을텐데 소스까지 친절하게 올려주셔서 너무감사하네요 꾸벅 (_._)

남은 한 해 잘 마무리 하시구요.

새해에 좋은일만 생기시길 바랍니다. ^^

음.
질문을. 이해를. 잘..

하지만.. 일단 객체의 움직임을 제어하고 싶다는..것으로 이해하겠습니다.
마우스로 객체를 제어시에는.

마우스 의 x,y 또는 객체의 x,y의 좌표가 변하게됩니다.
이때 left는 x로 top은 y로 비교하시면 될것으로 생각됩니다.

절대 좌표가 아니라면. 바로 상위의 포함하는 객체의 좌표에서 x,y값의
차를 이용하시면 되겟지요.