如何将复制的内容粘贴到光标所在的位置

Question

在使用 ActionList的标准行为EditCopy和EditPaste时 发现只能在菜单栏里选定 （新手只知道这个，如果有别的方法希望老手教一下）
就想做两个按钮实现复制粘贴 现在我用一个隐藏域保存了复制的内容 那怎么把这些内容粘贴到光标所在的位置呢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin  Edit1.PasteFromClipboard;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit2.CopyToClipboard;
end;

Answer 2

这个copy好像不行 paste可以 但是粘贴在了 指定的位置了 能不能粘贴在任意焦点

Answer 3

我光标在memo1里的时候还是粘贴在Edit1的光标里

Answer 4

那不是每个文本框里都要添加..有没有一种选中当前文本框 然后执行.PasteFromClipboard的方法？

Answer 5

呵呵，都是我的错，是接分的意思。
用2楼的那种方法在你想要粘贴的文本框组件里面必须对以下2个消息定义。
WM_COPY
WM_PASTE

Answer 6

procedure WMCopy(var Message: TMessage); message WM_COPY;

Answer 7

然后SendMessage(Handle,WM_COPY,0,0) ;