本文整理自网络，侵删。
在cxgrid中,如何获取当前列的索引号,按回车键光标移到下列 (50分)
yepemig (2006-05-30 11:19:26)
你的问题好简单,只是设一个属性的事情.
OptionsBehaviOr->GoToNextCellOnEnter:=True;
我再帮你完善一下.可以在焦点到了最后一列再回车时有下一行则移到下一行的第一列,没有下一行则新增记录并移到第一列
procedure TCUSTOMQRYFRM.MstGridDBTableViewEditKeyDown(
Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem;
AEdit: TcxCustomEdit; var Key: Word; Shift: TShiftState);
begin
inherited;
if Key=VK_RETURN then begin
if MstGridDBTableView.Controller.FocusedColumnIndex=MstGridDBTableView.VisibleColumnCount-1 then begin
with MstGridDBTableView.DataController do begin
if IsEof then begin // or (RecNo=RecordCount)
MstGridDBTableView.DataController.Append;
end else begin
MstGridDBTableView.DataController.MoveBy(1);
end;
MstGridDBTableView.Controller.FocusedItemIndex:=-1;
end;
end;
end;
end;
yepemig (2006-05-30 11:41:06)
其实还可以更完善一点的.但我到现在还实现不了.
1. 如果焦到移到了某列.如果此列有下拉框之类的.就自动下拉,用户选择并回车后焦点移到下一列.
2.由于一般我们是自已设定列的properties为有下拉控件的.这时我可以用代码判断这列的properties是否有下拉进而实现第一点的工能.但是如果这个列的properties的下拉控件是运行时cxGrid自已默认设定的下拉控件(如字段是fkLookup类型的.cxGrid会自动在这列上设为下拉的).这时我就无法用代码判断这列的properties是不是有下拉了(我现在的能力不能做到).这就导致我不能实现第一点的功能.
在w1229的这个贴里希望抛砖引玉,能引起高手对改善cxGrid的录入操作问题的讨论.
w1229 (2006-06-01 12:03:36)
yepemig你好！把５０分全部送给你．
非常感谢你对我的问题的回答，回答cxgrid控件的高手很少．
我看过一些软件，也想这样做：
当某个单元格获得焦点时，如果该列有固定选项（如：性别，男／女），就显示一个列表框之类的控件（男／女），只输入代码１／２，也可以输入男／女．
我认为需要在单元格获得焦点和失去焦点事件时分别处理．我不知道有没有单元格获得焦点和失去焦点的事件． 相关阅读 >>
Delphi 用 tbytesstream 类实现的读文件为十六进制字符的函数
Delphi setfileattributes 功能:修改文件属性
Delphi api: setwindowpos改变窗口的位置与状态
Delphi xe10 手机端错误提示：detected problems with api compatibility (visit g.co/dev/appcompat for more info
更多相关阅读请进入《Delphi》频道 >>
