求救！！代码实现复制粘贴

Question

适合于任何地方，比如：delphi外ie浏览器，电子词典。用鼠标选取需要的文字，然后按自定义快捷键（比如：ctrl+1）复制并粘贴进delphi文本框中。简单的说就是通过快捷键实现文字的复制粘贴。我只想要delphi外代码怎么实现复制粘贴这个过程。本人分不多，麻烦大家了，谁能帮帮兄弟！！！！

Answer 1

Delphi文本框本来就可以粘贴，Ctrl+V

Answer 2

自定义快捷键粘贴：
1、放一个TActionList元件在窗口，双击，在对话框中击右键，选择new Stadard Action菜单项，在弹出的对话框选择一个TEditPaste动作元件;
2、选择TEditPaste动作元件，将ChortCut属性改为你的快捷键；
3、放一个弹出菜单在窗口，设置菜单项，设置其Action属性为TEditPaste动作元件；
4、设置文本框的PopupMenu属性为这个弹出菜单，完成

Answer 3

为什么不用自身的??
DELPHI可以用CLIPBOARD.ASTEXT吖

Answer 4

需要Hook Ctrl+C，然后知道DesignIDE.bpl到当前Unit。
呵呵，蛮复杂的。
看看cnPack的源代码可能可以解出来。

Answer 5

不要意思，我要的是delphi程序外，进行复制粘贴，我做这个是为了方便提高速度，我现在要做个术语确定的界面，里面有好多术语需要在网上查找意思，然后复制进来，我就是想通过快捷键复制粘贴快点！

Answer 6

到网上查一下，很多的例子。我一时找不到了。
ctrl+1 要定义全局热键。
用鼠标选取需要的文字，然后按自定义快捷键（比如：ctrl+1）复制并粘贴，要监控内存变化，把变化的结果写到delphi文本框中。

Answer 7

可以考虑:
用自定义快捷键,在代码里调用Ctrl+C
也就是说,将自定义快捷键指向默认的复制.
到了clipboard,就好办了.
只是一个想法,没有测试.

Answer 8

MSN:[email protected]
给我你的 mail
我给你看一个hook 的东西。
不是很成熟。你可以稍微修改修改。