webbrowser1 发送粘贴消息的问题

Question

webbrowser1 发送粘贴消息的问题procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('www.baidu.com');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(edit1.Text));
SendMessage (GetWindow(GetWindow(WebBrowser1.Handle,   GW_CHILD),   GW_CHILD), WM_Paste, 291, 162);
end;为什么不行 想 webbrowser1 网页特定位置发送 粘贴消息 为什么不行？求解

Answer 1

看看webbroser 组件源代码中定义了这个消息没有  
procedure WMPaste(var Message: TMessage); message WM_PASTE;

Answer 2

你看看你需要粘贴的目的组件是否定义该消息
procedure WMPaste(var Message: TMessage); message WM_PASTE;刚才没看清楚

Answer 3

不知 webbrowser1定义了没？？

Answer 4

sendmessage当然不能向浏览器中的文本控件中发送粘贴消息了，那个不是平常我们用的控件，如果要往里面设置文本的话需要调用IHTML接口实现

Answer 5

var s:string;s:=((webbrowser.Document as IHTMLDocument2).selection.createRange as IHtmlTxtRange).text;
Clipboard.AsText := s;