BCB:處理Windows訊息

1.MESSAGE_HANDLER

 

public:
    BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_NCHITTEST,TWMNCHitTest ,OnNcHitTest)
    END_MESSAGE_MAP(TForm)

    void __fastcall OnNcHitTest(TWMNCHitTest&);

 

 

 

//---------------------------------------------------------------------------
void __fastcall TForm1::OnNcHitTest(TWMNCHitTest& Msg)
{

        // 分解當前滑鼠的座標
         int nPosX = Msg.XPos;
        int nPosY = Msg.YPos;
        if(nPosX >= Left + Width - 2 && nPosY >= Top + Height - 2)
        {
            // 滑鼠位置在表單的右下角附近
            Msg.Result = HTBOTTOMRIGHT;
            return;
        }
        else if(nPosX >= Left + Width -2)
        {
            // 滑鼠位置在表單右側
            Msg.Result = HTRIGHT;
            return;
        }
        else if(nPosY >= Top + Height - 2)
        {
            // 滑鼠位置在表單下方
            Msg.Result = HTBOTTOM;
            return;
        }

        TForm::Dispatch(&Msg);
}

 

 

2. 重寫WndProc