辰峰微网

cxgrid中回车键光标移到下列

1796 阅读

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;
分享到:
Jack·高峰
内容作者
人生如逆旅 我亦是行人
手机扫码阅读

微信或手机浏览器扫一扫,随时随地随心阅读与分享

还没有人赞过,来做第一个
🤞 分享

发表评论