Generar "scroll horizontal" con los cursores en un Grid

[dec]

Pon el siguiente codigo en el evento KeyDown de tu Grid.

NOTA: Solo funcionara si el la property Options tienen RowSelect := TRUE.

Código Delphi [-]
procedure TDBGrid1.KeyDown(var Key: Word; Shift: TShiftState);
begin
  {Scroll con los cursores cuando tiene RowSelect}
  if dgRowSelect in Options then
    if Key in [VK_LEFT,VK_RIGHT] then
     begin

       if Key = VK_LEFTthen
         if (ssCtrl in Shift) then Perform (WM_HSCROLL,SB_PAGELEFT,0)
          else Perform(WM_HSCROLL,SB_LINELEFT,0);

       if key = VK_RIGHT then
         if (ssCtrl in Shift) then Perform(WM_HSCROLL,SB_PAGERIGHT,0)
          else Perform(WM_HSCROLL,SB_LINERIGHT,0);

     end;
     Key:= 0;
  end;
end;