如何屏蔽掉系统的 CTRL+V, CTRL+C, CTRL+X 这三个鍵?

老菜鸟今天问一个非常老的问题:在用Delphi6写的程序中
如何屏蔽掉系统的 CTRL+V, CTRL+C, CTRL+X 这三个鍵?
因为写的程序中有的在 TDBMEMO/TMEMO 控件中的内容是
不通过WIN98的剪贴板向程序外进行复制的!所以必须把这
些鍵屏蔽掉!请问能不能给一个非常详细的例子?先谢了!

解决方案 »

  1.   

    在form的onshortcut中处理，详细看帮助
      

  2.   

    对应的ASCII码如下:
    CTRL+C    3
    CTRL+V    22
    CTRL+X    24
      

  3.   

    你只要在他的keypress事件里面判断
    如果是以上的ASCII码,你直接exit
    否则继续你的程序
      

  4.   

    CTRL+C    
    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
    begin
    if (ssctrl in shift)and(key=3) then key:=0;
    end;其它不用写了吧！
    特感谢rikky(读书、心知、生活)的 对应的ASCII码如下:
    CTRL+C    3
    CTRL+V    22
    CTRL+X    24