Question

delphi 如何实现复制所选文字功能？

我想在网页上先选中一段文字，然后在delphi程序中，一个按钮事件，可以将所选内容复制到一个TEXT文本框中。请问如何实现，简单来说就是如何实现用一个按钮实现ctrl+v的功能

Answer 1

剪切板是公用的额，直接粘贴就好了，在richedit中，richedit.PasteFromClipboard就可以了

追问

用delphi的一个按钮事件来替换Ctrl+C（复制）功能，如何实现啊？

追答

就是在你的那个按钮的点击事件里添加RichEdit1.CopyToClipboard就好了啊，这个就是复制

追问

我指的是能将delphi程序外地东西复制进来的，比如说复制网页上的文字到delphi程序里，不用ctrl+c，可以用delphi程序直接进行复制网页上所选的文字吗？

追答

那是浏览器的功能，要用delphi程序的话要去读网页内容了，有点复杂，不会。

追问

能不能用delphi调用ctrl+V的组合键？用一键来完成选区复制操作？

追答

ctrl+C的组合键是软件定义的热键，不是说按ctrl+C就能复制的，ctrl+c这样的组合键是一个按钮等事件的热键，要看事件内容的。因为浏览器有个按钮事件的热键是ctrl+c，这个按钮事件写了复制功能，你按ctrl+c相当于点击了那个按钮，才实现复制的。
你要调用浏览器的句柄，才能对浏览器进行操作

Answer 2

我也处理过类似的功能，我在Delphi中使用TWebBrowser，那样一个快捷方式就可以实现了。
procedure Tfrm_confirm.N3Click(Sender: TObject);
var
Doc: IHtmlDocument2;
TxtRange: IHtmlTxtRange;
S:string;
begin
Doc :=webnet.Document as IHtmlDocument2; //IE: IWebbrowser2;
TxtRange :=Doc.Selection.CreateRange as IHtmlTxtRange;
S:=TxtRange.Get_text;
//==========取到选择的数据了。

Answer 3

hcdvfuddfs