SendKeys函数 设置焦点是关键

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;