In Grid Control push Enter?

[Aleksandr Tkachenko]

Why Forms is closing when cursor in Grid and push Enter?

[Fred Tomke]

Hello,

you can avoid that using the CancelClose event of the form. I do this, too.

Code: [Select]

(defun cancel_edit ()
  (if isLabelEdit (dcl_Grid_CancelItemEdit MyGrid))
); cancel_edit

(defun c:OnCancelClose (isESCWasPressed)
  (cancel_edit)
  (/= isESCWasPressed 1) ;; avoids closing form after ENTER
); CancelClose

(defun c:OnBeginLabelEdit (intRow ontCol)
  (setq isLabelEdit T)
  ;; ... someting else, too
); c:OnBeginLabelEdit

(defun c:OnEndLabelEdit (intRow ontCol)
  ;; ... someting else, too
  (setq isLabelEdit nil)
); c:OnBeginLabelEdit
Fred

[Aleksandr Tkachenko]

Thank you Fred, it's worked.