关于CTRL+C，与CTRL+V ？？？？？？

Question

大家都知道
CTRL+C，与CTRL+V在WIN里是使用剪贴板的两个按钮，可是在我的写的程序中，这两个按钮不能起作用，只用通过右打击鼠标选择复制,和粘贴,很不方便,请问,怎么才可以在我的程序中一样实现WIN的CTRL+C,CTRL+V的功能;;;

Answer 1

procedure TForm1.XXXXXKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (shift=[ssCtrl]) and (key=70) then
    showmessage('OK!') ;
end;

Answer 2

to :blueshu()
我不想拦开截这两个事件,我只想实现WIN原剪贴板功能

Answer 3

不是吧，这个要看控件有没有封装这个功能了，如果没有，那就只有自己写了，比如stringgrid等，一般来说，edit等原本可以输入字符的是可以有这个功能的。要不然就只有发消息了（如果没有key事件的话）