BCB-DBGrid 滑鼠滾輪
void __fastcall TForm1::DBGridWndProc(TMessage &Message)
{
short int Delta;
if(Message.Msg == WM_MOUSEWHEEL) // 判斷訊息是否為 [滑鼠滾輪]
{
Delta = Message.WParamHi;
if (Delta < 0) DataSource3->DataSet->Next(); // 往上滾動時跳到上一筆資料
if (Delta > 0) DataSource3->DataSet->Prior(); // 往下滾動時跳到下一筆資料
}else{