如何实现ctrl+c和ctrl+v?

darkness 2000-04-04 08:42:00
Dear all,
如何在程序中实现象windows的ctrl+c和ctrl+v 功能?
...全文
516 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
za 2000-04-04
  • 打赏
  • 举报
回复
还是用TCustomEdit类控件的SelStart,SelLength,SelText比较好.
设好后用CopyToClipboard实现Ctrl+C,
PasteFromClipboard实现Ctrl+V,
SelText:='';实现Ctrl+X
atkins 2000-04-04
  • 打赏
  • 举报
回复
在keydown事件中加入以下程序碼:
例如:
if ((shift=[ssctrl]) and ((key=99) or (key=67))) then edit1.SetFocus;
kxy 2000-04-04
  • 打赏
  • 举报
回复
TClipboard

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧