delphi - 为什么 CTRL+C 在 TMemo 组件上不起作用？ (Vista+德尔福7)

Question

为什么无法将 TDBMemo 组件中选定的文本复制到剪贴板？德尔菲 7、Windows Vista。以下代码无法捕获 ctrl+c 事件，而 ctrl+a 则可以正常工作。

uses clipbrd;

    procedure THierarchierForm.dbm1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin

    if (Key=Ord('A')) and (ssCtrl IN Shift) then begin
    dbm1.SelectAll;
    Key:=0;
    end;

    if (Key=Ord('C')) and (ssCtrl IN Shift) then begin
    Clipboard.AsText:=dbm1.SelText;
    Key:=0;
    end;

    end;

谢谢

Answer 1

您提供的代码在普通表单的上下文中工作。一定有其他东西干扰。

最明显的是您的表单将 KeyPreview 设置为 True，因此您的表单可以处理 CTRL+C。

请注意，我坚持在对您的问题的评论中表达的保留意见。