在使用webbrowser的过程中，跨域是个头痛问题，从顶层到内层还能找到方法，从内层想要跨域到顶层在同域的情况下也很简单，如果不同域会提示：拒绝访问！应该是安全机制在作怪吧。问题总结如下图：
以下内容均在不同域的前提下产生（同域的不用这么麻烦）：
通过从顶层访问内层，我得到了inputIframe这个元素，如果想从inputIframe逐级向上推导，得到顶层（上一层）的Document，一般手段是行不通的，在网上找到一篇文章，不过没看懂：http://msdn.microsoft.com/en-us/library/ms537182(VS.85).aspx，不知道这几个接口怎么用，无奈之下，只有改变思维方式：既然能从顶层访问到内层，那么不一定需要从内层向上取Document，也可以从顶层向内层推导，如果取到的Document和内层的Documnet一样不就行了？
function TfrmSetTask.GetActiveElmPos(Doc: IHTMLDocument2;ELm:ihtmlelement): tpoint;
var
Element: IHTMLElement;
Frame: IHTMLFrameElement;
WB: IWebBrowser2;
HtmlDoc2: IHTMLDocument2;
begin
ELm.scrollIntoView(0);
(ELm as IHTMLElement3).setActive;
HtmlDoc2:=Doc;
Element := HtmlDoc2.activeElement;
Result:=Point(0,0);
while not ((Element.tagName=ELm.tagName) and (Element.sourceIndex=ELm.sourceIndex)) do
begin
Element := HtmlDoc2.activeElement;
Result.X:=Result.X+(Element as ihtmlelement2).getBoundingClientRect.left;
Result.y:=Result.y+(Element as ihtmlelement2).getBoundingClientRect.top;
if not Assigned(Element) then Break;
if Element.QueryInterface(IHTMLFrameElement, Frame) <> S_OK then Break;
if Frame.QueryInterface(IID_IWebBrowser2, WB) <> S_OK then Break;
if not Assigned(WB.Document) then Break;
if WB.Document.QueryInterface(IID_IHTMLDocument2, HtmlDoc2) <> S_OK then Break;
end;
Result.X:=Result.X+(Elm as ihtmlelement2).getBoundingClientRect.left;
Result.y:=Result.y+(Elm as ihtmlelement2).getBoundingClientRect.top;
end;
在上面的函数中，需要传入一个顶层的Doc和一个已知的内层htmlElment，就可以计算出内层htmlElment相对于Webbrowser控件的位置（注意：不是相对于顶层document的位置），把这个函数改下，也可以得到想要的Document.
总结下：本文有取巧之嫌，如果有更好的方法希望能回复一下，谢谢。
webbrowser