Горизонтальная прокрутка в rxDBGrid...

[GOS]

В rxDBGrid, в Options выбран RowSelect(те выбирается сразу строка).

Есть необходимость по нажатию курсоров <- и -> скролировать сетку как мышкой. Есть ли возможность это сделать?

С уважением, Олег!

[Naeel Maqsudov]

Это просто. Странно, что Rx-ы этого не предусмотрели...

Код: Выделить всё

procedure TForm1.RxDBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    VK_LEFT: begin
      sendmessage(RxDBGrid1.Handle,WM_HSCROLL,SB_LINELEFT,0);
      Key:=0;
    end;
    VK_RIGHT: begin
      sendmessage(RxDBGrid1.Handle,WM_HSCROLL,SB_LINERIGHT,0);
      Key:=0;
    end;
  end;
end;

[GOS]

Спасибо! Я о сообщениях как-то не подумал...