dxdbgrid中如何按回车,光标从第一列移到第二列,如此类推(10分)

  • 主题发起人 主题发起人 fshrq1
  • 开始时间 开始时间
F

fshrq1

Unregistered / Unconfirmed
GUEST, unregistred user!
dxdbgrid中如何按回车,光标从第一列移到第二列,如此类推,当光标在最后一列再按
回车,光标就移到第一列
 
procedure TfrmStock_Change.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key=vk_return) and (DBGridEh1.SelectedIndex<4) then
begin
if DBGridEh1.SelectedIndex<(DBGridEh1.FieldCount-1) then
DBGridEh1.SelectedIndex:=DBGridEh1.SelectedIndex+1;
end;
end;
 
不是dbgrideh,而是dxdbgrid
 
//原理应是一样的吧
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;
 
dxdbgrid应该支持TAB吧,还是用ENTER代替TAB好了。
 
dxdbgrid无selectindex和fieldcount
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
867
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
836
DelphiTeacher的专栏
D
后退
顶部