标签:eof proc ons mgr RoCE procedure index append turn
OptionsBehavior.GoToNextCellOnEnter:=True;
更完善的回车
可以在焦点到了最后一列再回车时有下一行则移到下一行的第一列,没有下一行则新增记录并移到第一列
procedure TK_XSD_Form.cxGrid1DBTableView1EditKeyDown( Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem; AEdit: TcxCustomEdit; var Key: Word; Shift: TShiftState); begin inherited; if Key=VK_RETURN then begin if cxGrid1DBTableView1.Controller.FocusedColumnIndex=cxGrid1DBTableView1.VisibleColumnCount-1 then begin with cxGrid1DBTableView1.DataController do begin if IsEof then begin // or (RecNo=RecordCount) cxGrid1DBTableView1.DataController.Append; end else begin cxGrid1DBTableView1.DataController.MoveBy(1); end; cxGrid1DBTableView1.Controller.FocusedItemIndex:=-1; end; end; end; end;
标签:eof proc ons mgr RoCE procedure index append turn
原文地址:https://www.cnblogs.com/Thenext/p/9811747.html