Question

我有第三方控件（DevExpress TcxVirtualTreeList）不喜欢接收 Ins 按键（访问违规）并处理老式的 Ctrl - Ins （复制到剪贴板）也是 Ins 。

所以我想在其OnKeyDown处理程序中将 Ctrl - Ins 更改为 Ctrl - C ：

 if (Key=VK_INSERT) and (Shift=[]) then              // Insert
 begin  
    // Handle insert ourselves
    ...
    Key := 0;
 end
 else if (Key=VK_INSERT) and (Shift=[ssCtrl]) then   // Ctrl-Ins
 begin
    Key := 67; // 'C'   
 end

但这不起作用。所选文本（在TcxVirtualTreeList的内部编辑器中）不会像 Ctrl - C 一样复制到剪贴板。

我做错了什么以及如何获得理想的结果？

我已经确认C确实是67（BTW是VK_C在任何单位中定义的吗？）
Form上有一个OnKeydown处理程序，KeyPreview=false处理 Ctrl - Shift - C 和 Ctrl - 移 - V 。禁用该处理程序没有任何区别（如预期的那样）。

[使用普通TEdit编辑测试用例]
对不起，我提到它是DevEx控件让我感到困惑。这与这个问题无关。

我设法在一个带有TEdit的小应用程序中测试它，反过来（从Form到Edit）和Form.KeyPreview=true：

procedure TFrmChangeKeyInDown.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if (Key=VK_INSERT) and (Shift=[]) then
   begin
      Memo1.Lines.Add('FormKeyDown: Ins detected');
   end
   else if (Key=VK_INSERT) and (Shift=[ssCtrl]) then
   begin
      Memo1.Lines.Add('FormKeyDown: Ctrl-Ins detected, changing to Ctrl-C');
      Key := 67;
   end;
end;

procedure TFrmChangeKeyInDown.EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if (Key=VK_INSERT) and (Shift=[]) then
   begin
      Memo1.Lines.Add('EditKeyDown: Ins detected');
   end
   else if (Key=VK_INSERT) and (Shift=[ssCtrl]) then
   begin
      Memo1.Lines.Add('EditKeyDown: Ctrl-Ins detected');
   end
   else if (Key=67) and (Shift=[ssCtrl]) then
   begin
      Memo1.Lines.Add('EditKeyDown: Ctrl-C detected');
   end;
end;

在编辑控件中输入内容，选择一个单词，按 Ctrl - Ins ，备忘录显示：

FormKeyDown: Ctrl-Ins detected, changing to Ctrl-C
EditKeyDown: Ctrl-C detected

但我的剪贴板缓冲区的内容现在不是那个词。使用 Ctrl - C 执行此操作，它可以正常工作。

Answer 1

不知道这是否是可接受的解决方案，但是如果你添加

Edit.CopyToClipboard;

到

之后（或代替）到EditKeyDown处理程序


    Memo1.Lines.Add('EditKeyDown: Ctrl+C detected');

然后它将文本复制到剪贴板，就像你自己按下 Ctrl + C 一样。如果您正在使用的TreeList控件上没有CopyToClipboard，那么您可以使用

Clipboard.AsText:=<Text to copy to clipboard>

如果您可以从ListView访问当前选定的文本。

Ctrl + C 处理不是由VCL完成的，而是由Windows，AFAIK，完成的，所以你不能只是＆＃34; feed＆＃34 ; Ctrl + C / Ctrl + V 进入VCL控件并期望它执行剪贴板操作

在keydown处理程序中将Ctrl-Ins更改为Ctrl-C

1 个答案: