BCB如何处理FORM、ScrollBox的鼠标滚轮事件_tform1::scrollbox1mousewheeldown-CSDN博客

本文链接：https://blog.csdn.net/u010030181/article/details/46341543

void __fastcall TForm1::FormMouseWheelDown(TObject *Sender,
      TShiftState Shift, TPoint &MousePos, bool &Handled)
{
    Handled = true;	//这个很重要，否则会出现不期望的效果
    if (Shift.Contains(ssCtrl) && (Shift.Contains(ssShift)))	//按住ctr+shift 两个scrollbar同时滚动
    {
        Form1->HorzScrollBar->Position += 5;	//5滚轮的滚动幅度，如果想滚动幅度就调整这个数值即可
        Form1->VertScrollBar->Position += 5;
    }
    else if (Shift.Contains(ssCtrl))	//只按住ctr
    {
        Form1->HorzScrollBar->Position += 5;
    }
    else
        Form1->VertScrollBar->Position += 5;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormMouseWheelUp(TObject *Sender,
      TShiftState Shift, TPoint &MousePos, bool &Handled)
{
    Handled = true;
    if (Shift.Contains(ssCtrl) && (Shift.Contains(ssShift)))
    {
        Form1->HorzScrollBar->Position -= 5;
        Form1->VertScrollBar->Position -= 5;
    }
    else if (Shift.Contains(ssCtrl))
    {
        Form1->HorzScrollBar->Position -= 5;
    }
    else
        Form1->VertScrollBar->Position -= 5;
}