delphi webbrowser文本框获得焦点

 ((WebBrowser1.Document as IHTMLDocument3).getElementsByName('input_authnum').item(0,'') as IHTMLControlElement).focus;

 

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