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

Модераторы: Duncon, Naeel Maqsudov, Хыиуду, Игорь Акопян

Ответить
GOS
Сообщения: 111
Зарегистрирован: 17 фев 2004, 10:32
Контактная информация:

20 сен 2004, 10:05

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

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

С уважением, Олег!
Аватара пользователя
Naeel Maqsudov
Сообщения: 2551
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

21 сен 2004, 08:29

Это просто. Странно, что 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
Сообщения: 111
Зарегистрирован: 17 фев 2004, 10:32
Контактная информация:

21 сен 2004, 11:43

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