DBCtrlGrid 가 위치하고 있는 Form 의 이벤트 중에서, OnMouseWheel 에 아래 처럼 코드를 넣어주면 됩니다.
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
TPoint &MousePos, bool &Handled)
{
if (PtInRect(DBCtrlGrid1->ClientRect, DBCtrlGrid1->ScreenToClient(MousePos))) {
if (WheelDelta > 0) {
DBCtrlGrid1->DataSource->DataSet->Prior() ;
} else {
DBCtrlGrid1->DataSource->DataSet->Next() ;
};
Handled = true;
} ;
}
//---------------------------------------------------------------------------
|