1,184
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
jxc163 2003-12-02
- 打赏
- 举报
from的keyPreview设为true
在keydown事件中判断：
if shift = [ssctrl] then
case key of
ord("C") : ShowMessage('Ctrl+C');
ord('V') : SHowMessage('Ctrol+V');
end;
测试通过。
在keydown事件中判断：
if shift = [ssctrl] then
case key of
ord("C") : ShowMessage('Ctrl+C');
ord('V') : SHowMessage('Ctrol+V');
end;
测试通过。
hongqi162 2003-12-02
- 打赏
- 举报
form的keyPreview属性设为true
hongqi162 2003-12-02
- 打赏
- 举报
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');
if (ssCtrl in Shift) and (chr(Key) in ['V', 'v']) then ShowMessage('Ctrl-v');
jiayodo 2003-12-02
- 打赏
- 举报
同意楼上的
