请问如何获得 WebBrowser 控件获得的 ie页面的大小

Question

如题

Answer 1

{
设置浏览器的真实尺寸
wb：设置尺寸的浏览器对象
}
procedure setWebbrowserRealSize(wb : TWebbrowser);
begin
  with wb do
  begin
    OleObject.Document.Body.scrollTop := 10000;
    Height := Height + OleObject.Document.Body.scrollTop;    OleObject.Document.Body.scrollLeft := 10000;
    Width := Width + OleObject.Document.Body.scrollLeft;
  end;
end;就是浏览器像右像下滚动一个很大的值。这样就可以得到Body的scrollTop和scrollLeft了，再加上原先的Webbrowser的宽度和高度就可以知道页面的实际尺寸了。