如何在编辑ttreeview节点时停止对话框默认和取消行为

您应该从按钮中删除默认和取消属性,而应该将按下的键放在窗体上,然后执行“确定”或“取消”。

编辑:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = VK_ESCAPE)and not (TreeView1.IsEditing) then
  CancelClick(sender)
else
  if (Key = VK_RETURN) and not (TreeView1.IsEditing) then
    OkClick(sender);
end;

还需要将keypreview设置为true。

不要只在“确定”和“取消”按钮上设置modalresult属性,而是创建onclick事件处理程序并使用

if not(TreeView1.IsEditing) then ModalResult:=mrOk

或mrcancel

在这种情况下,我要做的是将onCloseQuery事件处理程序添加到表单中,如果ttreeview是焦点控件,则表单将阻止它关闭。

在ttreeview.onediting中将default和cancel临时设置为false,在ttreeview.oneditd中将其重新设置为true可能会有所帮助。没什么可取消的-这可能是个问题。

我想我找到了最好的解决办法。一点理论:但是点击Escape Press在 TButton.CMDialogKey 它是由 TCustomForm.CMDialogKey 通过继承方法 TWinControl.CMDialogKey 这只是用给定的消息调用wndproc的所有控件。 所以我们要做的就是重写表单的方法:

// Ignore ESCAPE when TV is in edit mode
procedure TForm1.CMDialogKey(var Msg: TWMKey);
begin
  if (Msg.CharCode = VK_ESCAPE) and (KeyDataToShiftState(Msg.KeyData) = []) and
     (ActiveControl = tvTree) and tvTree.IsEditing
    then // do nothing
    else inherited; // continue as usual
end;

这是你所需要的, ModalResult 按钮和 Cancel 道具保持不变。