请教高手,如何响应CTRL+C,CTRL+V的消息?

请教高手,如何响应CTRL+C,CTRL+V的消息? 问题点数：20、回复次数：4Top

1 楼hongqi162（失踪的月亮）回复于 2003-12-02 09:05:29 得分 10

if   (ssCtrl   in   Shift)   and   (chr(Key)   in   ['C',   'c'])   then   ShowMessage('Ctrl-C');  
  if   (ssCtrl   in   Shift)   and   (chr(Key)   in   ['V',   'v'])   then   ShowMessage('Ctrl-v');  
  Top

2 楼hongqi162（失踪的月亮）回复于 2003-12-02 09:06:52 得分 0

form的keyPreview属性设为trueTop

3 楼jxc163（一寒）回复于 2003-12-02 09:30:08 得分 10

from的keyPreview设为true  
  在keydown事件中判断：  
      if   shift   =   [ssctrl]   then  
          case   key   of  
              ord("C")   :   ShowMessage('Ctrl+C');  
              ord('V')   :   SHowMessage('Ctrol+V');  
        end;  
   
  测试通过。Top

4 楼jiayodo（爱上一只猪）回复于 2003-12-02 13:18:39 得分 0

同意楼上的Top

相关问题

• 消息
• ctrl+
• 响应
• 请教高手
• showmessage
• keypreview
• ctrl
• ord
• chr
• key

• 帖主：bl7009
• hongqi162
• jxc163

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载