//原理应是一样的吧
procedure TAProductInfoFrm.RxDBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key=13) or (key=VK_RIGHT) then begin
Key:=0;
with RxDbGrid1 do begin
if Selectedindex<(FieldCount-1) then
selectedindex:=Selectedindex+1{ 移动到下一字段}
else Selectedindex:=0;
end;
end;
if key=VK_LEFT then begin
Key:=0;
with RxDbGrid1 do begin
if Selectedindex>1 then //(FieldCount-1) then
selectedindex:=Selectedindex-1{ 移动到下一字段}
else Selectedindex:=0;
end;
end;