Delphi:如果用户按下序列太快，则无法捕获 Ctrl+C

Question

我试图捕获用户按下 Ctrl+C 以便将某些文本复制到剪贴板的情况。如果用户故意按住Ctrl...然后按C它将注册。

procedure <anObject>.KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin    
  if (ssCtrl in Shift) and (upcase(Char(key)) = 'C')
    then
      begin
        //Copy code    
      end;
end;

发生这种情况有什么原因吗？

谢谢!

Answer 1

Ctrl+C 被转换为字符消息。因此，您最好使用 OnKeyPress 处理程序(该处理程序是为了响应 WM_CHAR 而触发的):

procedure <anObject>.KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ^C then
    begin
      // Copy code
    end;
end;

更新:我相信发生的事情是这样的:快速按下时，用户按下“Ctrl”，然后按下“C”，然后释放“Ctrl”，最后释放“C”。正如您所看到的，当“C”的 OnKeyUp 被触发时，“Ctrl”键已经被释放。翻译后的消息不会出现此类问题，如果操作系统注册了“复制”键，则 OnKeyPress 将被触发。