Is it possible to disable select cell event when scrolling grid in page mode ? What I want is to not change cell selected when scrolling. Now when I scroll down, cell in bottom row is automatically selected. When I scroll up, cell in top row is automatically selected.
Or alternative solution which would be good for me is detect in OnSelectCell event that it was caused by scrolling action and in this case do nothing.
This is solution to my problem:
void __fastcall TForm1::DBGrid1SelectCell(TObject *Sender, int ACol, int ARow, bool &CanSelect)
{
if (IsScrolling())
{
return;
}
// do something
}
bool TForm1::IsScrolling()
{
if ( (GetKeyState(VK_LBUTTON) & 0x80) == 0)
{
// left mouse button is not pressed
return false;
}
DWORD pos_raw = GetMessagePos();
TPoint pos;
pos.x = GET_X_LPARAM(pos_raw);
pos.y = GET_Y_LPARAM(pos_raw);
pos = DBGrid1->ScreenToClient(pos);
return (DBGrid1->Focused() && (pos.x > DBGrid1->ClientWidth));
}