Naeel Maqsudov » 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;
Это просто. Странно, что 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]