Developing.ru

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

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;

Это просто. Странно, что Rx-ы этого не предусмотрели...
[code]
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;
[/code]

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

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

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