给 IE 输入框设置焦点

最新推荐文章于 2017-12-06 14:22:13 发布

weixin_34248118

最新推荐文章于 2017-12-06 14:22:13 发布

阅读量227

点赞数

文章标签： python javascript ViewUI

原文链接：https://my.oschina.net/u/582827/blog/738079

版权

2019独角兽企业重金招聘Python工程师标准>>>

`procedure Focus(Document:IHTMLDocument2); var IDisp:IDispatch; pElement:IHTMLElement; i:integer; begin for I := 0 to Document.all.length - 1 do // 遍历所有HTML元素 begin {得到当前的IDispatch接口} IDisp:=Document.all.item(i,i); IDisp.QueryInterface(IID_IHTMLElement,pElement); if CompareText(pElement.tagName, 'INPUT ')=0 then begin Document.parentWindow.execScript(Format( 'document.all(%d).focus(); ',[i]), 'JScript '); {执行JavaScript,将焦点移动到该元素上} exit; end; end; // for end;

Document.parentWindow.execScript('document.getElementById(''id'').focus','javascript');`

procedure   Focus(Document:IHTMLDocument2); 
var   IDisp:IDispatch; 
        pElement:IHTMLElement; 
        i:integer; 
begin 
        for   I   :=   0   to   Document.all.length   -   1   do         //   遍历所有HTML元素 
        begin 
                {得到当前的IDispatch接口} 
                IDisp:=Document.all.item(i,i); 
                IDisp.QueryInterface(IID_IHTMLElement,pElement); 
                if   CompareText(pElement.tagName, 'INPUT ')=0   then 
                begin 
                        Document.parentWindow.execScript(Format( 'document.all(%d).focus(); ',[i]), 'JScript '); 
                        {执行JavaScript,将焦点移动到该元素上} 
                        exit; 
                end; 
        end;         //   for 
end; 

---
Document.parentWindow.execScript('document.getElementById(''id'').focus','javascript');

转载于:https://my.oschina.net/u/582827/blog/738079