用TwebBrowse作了,一个浏览器,为什么 浏览页面的输入,不接受 回车 递交

Question

用TwebBrowse作了,一个浏览器,为什么 浏览页面的输入,不接受 回车 递交还有文本框的历史记录提示!!

Answer 1

TwebBrowse本身只负责解析和显示网页，输入需要你用edit控件，响应回车可以在edit的onkeydwon里面直接调用TwebBrowse的方法即可。同样的历史记录也需要你自己保存并通过一定响应加以显示。

Answer 2

使WebBrowser获得焦点
　　TWebBrowser非常特殊，它从TWinControl继承来的SetFocus方法并不能使得它所包含的文档获得焦点，从而不能立即使用Internet Explorer本身具有得快捷键，解决方法如下：<
　　procedure TForm1.SetFocusToDoc;
　　begin
　　　if WebBrowser1.Document <> nil then
　　　　with WebBrowser1.Application as Ioleobject do
　　　　　DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle, GetClientRect);
　　end;
　　除此之外，我还找到一种更简单的方法，这里一并列出:
　　if WebBrowser1.Document <> nil then
　　　IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).focus;
　　刚找到了更简单的方法，也许是最简单的：
　　if WebBrowser1.Document <> nil then
　　　IHTMLWindow4(WebBrowser1.Document).focus;
　　还有，需要判断文档是否获得焦点这样来做：
　　if IHTMLWindow4(WebBrowser1.Document).hasfocus then

Answer 3

参考http://www.shubulo.com/redirect.php?fid=68&tid=33513&goto=nextnewset