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- then begin
with cxGrid1DBTableView1.DataController do begin
if IsEof then begin // or (RecNo=RecordCount)
cxGrid1DBTableView1.DataController.Append;
end else begin
cxGrid1DBTableView1.DataController.MoveBy();
end;
cxGrid1DBTableView1.Controller.FocusedItemIndex:=-;
end;
end;
end;
end;