procedureTForm1.ButtonClick(Sender:TObject);
var
H:HWND;
i:Integer;
begin
H:=FindWindowEx(WebBrowser.Handle,0,'ShellDocObjectView',nil);
H:=FindWindowEx(H,0,'InternetExplorer_Server',nil); //这些查找句柄就不需要了,可以删除;
IHTMLWindow2(IHTMLDocument2(WebBrowser.Document).ParentWindow).focus; //这样设置焦点才可以向网页发送按键;
WebBrowser.OleObject.document.parentwindow.focus;
//这样设置焦点也是可以的,跟上面的效果一样,但是WebBrowser.OleObject后面没有提示补充代码,所以要用脑代记住,网上也有相关文章说明;
//WebBrowser.SetFocus;这样设置焦点无效;
SendKeys('{TAB}',False);
SendKeys('{TAB}',False);
SendKeys('{TAB}',False);
SendKeys('{TAB}',False);
//WebBrowser.SetFocus;这样设置焦点无效;
SendKeys('{ENTER}',False);
SendKeys('{down}',False);
//SendKeys('^F',False); SendKeys函数网上有详细说明;
end;
procedureTForm1.Button1Click(Sender:TObject);
begin
WebBrowser.Navigate('http://www.baidu.com/');
end;