Изменение формы курсора в зависимости от квадранта формы

 this->Cursor = System::Windows::Forms::Cursors::Hand;
                this->Cursor = System::Windows::Forms::Cursors::PanSE;
                this->Cursor = System::Windows::Forms::Cursors::WaitCursor;

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
}

    protected: System::Void OnMouseMove(MouseEventArgs^ e) override
    {
        Control::OnMouseMove(e);
 
        Point^ p = e->Location;
 
        int flag;
 
        if (p->X < this->Width / 2)
            flag = 0; //x:left
        else
            flag = 1; //x:right
 
        if (p->Y < this->Height / 2)
            flag |= 2; //y:up
        else
            flag |= 4; //y:down
 
        switch (flag)
        {
        case 2: // 0 | 2 - x:left, y:up
            this->Cursor = Cursors::Hand;
            break;
        case 3: // 1 | 2 - x:right, y:up
            this->Cursor = Cursors::PanSE;
            break;
        case 4: // 0 | 4 - x:left, y:down
            this->Cursor = Cursors::WaitCursor;
            break;
        case 5: // 1 | 4 - x:right, y:down
            this->Cursor = Cursors::Cross;
            break;
        }
    }