为什么CTRL + C不能用于TMemo组件？ （Vista + Delphi 7）

Question

为什么不能将TDBMemo组件中的选定文本复制到剪贴板中？ DELPHI 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

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