自定义TWebBrowser浏览器控制遇到的一些问题

来源：互联网发布：黑马程序员论坛编辑：程序博客网时间：2024/05/17 03:44

最近工作需要，要将TWebBrowser样式改头换面，包括菜单，滚动条等，都要换掉。
由于滚动条已经屏蔽掉，所以关于页面滚动等，全部都需要自己写代码来模拟了。模拟的过程中发现获得页面的客户区大小ClientHeight,ClientWidth以及页面总大小ScrollHeight,ScrollWidth的时候，还有滚动条滑块位置ScrollTop,ScrollLeft的值总是有不对的情况，通过在网上查找才发现，原来是W3C标准在作怪，只要是使用了W3C标准格式
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
作为开头的，我使用
((FWebBrowser.Document as IHTMLDocument2).body as IHTMLElement2).scrollTop这些获得的值都有问题，始终为0
而不用该格式的，都不会有问题。
那么使用了该格式的，用什么方法来获得呢！通过资料发现
FWebBrowser.oleobject.document.documentelement.ClientHeight;这样的方式来获得标准格式的各个值。
资料原文如下

JavaScript:
function IeTrueBody(){//判断头部是否有标准声明
    return (document.compatMode && document.compatMode!="BackCompat")? document.documentElement : document.body
}

通过这里我们可以看到，需要检查是否是标准文档，这个就需要document.compatMode的判断
资料如下：

转载:http://www.cnscn.org(CNS电脑与英语学习网)

声明:我写的博客就是我的学习笔记,让我在忘记的时候可以在任何时候,任何地方,打开连接就可以看到,让我想起忘记的东西.
我的博客通常都有资料来源,只用于学习,没有任何其他目的,如果有版权问题,请跟我联系,如果对资料有什么疑问，可以留言！
我的email:herhun@163.com

对于document.compatMode，很多朋友可能都根我一样很少接触，知道他的存在却不清楚他的用途。今天在ext中看到 document.compatMode的使用，感觉这个对于我们开发兼容性的web页面还是很有帮助，我们都知道，IE对盒模型的渲染在 Standards Mode和QuirksMode是有很大差别的，在Standards Mode下对于盒模型的解释和其他的标准浏览器是一样，但在QuirksMode模式下则有很大差别，而在不声明Doctype的情况下，IE默认又是QuirksMode。所以为兼容性考虑，我们可能需要获取当前的文档渲染方式。
document.compatMode正好派上用场，它有两种可能的返回值：BackCompat和CSS1Compat，对其解释如下：
BackCompat Standards-compliant mode is not switched on. (Quirks Mode)
CSS1Compat Standards-compliant mode is switched on. (Standards Mode)

在实际的项目中，我们还需要在获取浏览是否IE，这样就可以得到IE的渲染模式了。在Ext中的代码：isBorderBox=isIE&&!isStrict。

当文档有了标准声明时， document.compatMode 的值就等于 "CSS1compat"，因此，我们可以根据 document.compatMode 的值来判断文档是否加了标准声明

var height = document.compatMode=="CSS1Compat" ? document.documentElement.clientHeight : document.body.clientHeight;

浏览器的两种模式

在看js代码时，有时会看到关于quirks mode(怪异模式)和strict mode(严格格式)的东西，一直也没深究怎么回事，只是零零碎碎的有些概念，最近终于受不了这种似懂非懂的感觉，决定好好学习总结一下。

1、quirks mode和strict mode是浏览器解析css的两种模式，或者可以称之为解析方法。目前正在使用的浏览器这两种模式都支持。

2、历史原因。

当早期的浏览器Netscape 4和Explorer 4对css进行解析时，并未遵守W3C标准，这时的解析方式就被我们称之为quirksmode(怪异模式),但随着W3C的标准越来越重要，众多的浏览器开始依照W3C标准解析CSS，仿照W3C标准解析CSS的模式我们叫做strictmode(严格模式).

3、后来的浏览器虽然支持strict mode，但众多浏览器并未放弃支持quirks mode。

一个重要的原因就是为了之前大量在quirksmode下开发的网页能够得到正确的显示。所以，这些支持两种模式的浏览器当拿到一张网页时，所做的一个前期工作就是判断采取何种方式进行解析(判断条件后面会说)。注：Explorer 5仍然只支持quirks mode

4、浏览器如何判断何用哪种方式解析CSS？

解决方案就是采用doctype声明，大多数浏览器采用下面的这些判断规则

浏览器要使老旧的网页正常工作，但这部分网页是没有doctype声明的，所以浏览器对没有doctype声明的网页采用quirks mode解析。

对于拥有doctype声明的网页，什么浏览器采用何种模式解析，这里有一张详细列表可参考：http://hsivonen.iki.fi/doctype/

对于拥有doctype声明的网页，这里有几条简单的规则可用于判断：

对于那些浏览器不能识别的doctype声明，浏览器采用strict mode解析

在doctype声明中，没有使用DTD声明或者使用HTML4以下（不包括HTML4）的DTD声明时，基本所有的浏览器都是使用quirks mode呈现，其他的则使用strict mode解析。

可以这么说，在现有有doctype声明的网页，绝大多数是采用strict mode进行解析的。

在ie6中，如果在doctype声明前有一个xml声明(比如:<?xml version="1.0" encoding="iso-8859-1"?>)，则采用quirks mode解析。这条规则在ie7中已经移除了。

5、mozilla提出了almost strict moede，和strict mode的区别是：

img元素在strict中是inline的，而在almost strict mode中是block的。其实我们前面所说，在大多数浏览器，大多数doctype声明触发的是almost strict mode;

6、quirks mode和strict mode最大的不同就是提现在对盒模式的解释上，这也是我们在js里要注意的地方。

什么是盒模式？这是针对块级元素说的，我这里只简单说一下(详情请查阅相关资料)。说白了就是把块级元素想像成一个装东西的盒子，而margin,padding,border,width这些css属性构成了盒模式。

而区别就是产生在width属性上：

在strict mode中：

width是内容宽度，也就是说,元素真正的宽度 = margin-left + border-left-width + padding-left +width + padding-right + border-right-width + margin-right;

在quirks mode中：

width则是元素的实际宽度，内容宽度 = width - (margin-left + margin-right + padding-left + padding-right + border-left-width + border-right-width)

这里把盒模式相关的东西记录一下，备忘！

·内联元素，例如<a>、<span>等，定义上下边界不会影响到行高（line-height），内联元素距离上一行元素的距离由行高决定，而不是填充或边界。注2. 内联元素（display: inline）内联元素不需要在新行内显示，而且也不强迫其后的元素换行，如a、em、span等都为内联元素。内联元素可以为任何其他元素的子元素。

·浮动元素（无论左或者右浮动）边界不压缩，且若浮动元素不声明宽度，则其宽度趋向于0，即压缩到其内容能承受的最小宽度。

·如果盒中没有内容，则即使定义了宽度和高度都为100%，实际上只占0%，因此不会被显示，此点在采取层布局的时候需特别注意。

·边界值可为负，其显示效果各浏览器可能不相同。

·填充值不可为负。

·边框默认的样式（border-style）为不显示（none）。

7、在quirks mode 和 strict mode中还有一个区别，但没经过验证，我只是发现有这个现象。

在strict mode中，

table的css属性font-size会继承父级元素的，也就是说，table中的字体大小会继承父级元素字体的大小。

在quirks mode中，

table的css属性font-size不会继承父级元素的，需要专门设置一下。也就是说，table中的字体大小不会继承父级元素字体的大小。

8、在js中如何判断当前浏览器正在以何种方式解析？
    document对象有个属性compatMode,它有两个值：
        BackCompat    对应quirks mode
        CSS1Compat    对应strict mode

在Delphi中判断代码如下：

procedure TDxSkinWebBrowser.CheckIfW3CStd;
var
  compatMode: string;
begin
  //判断文档是否有加标准声明
  //当文档有了标准声明时， document.compatMode 的值就等于 "CSS1compat"
  //否则就为BackCompat
  compatMode := FWebBrowser.oleobject.document.compatMode;
  IsW3CStd := CompareText(compatMode,'CSS1Compat') = 0;
end;

所以，滚动控制就要加上这样一个判断，如果是标准的就使用
FWebBrowser.oleobject.document.documentelement.ClientHeight
否则就使用另一种方式：

DelphiCode:

 procedure TDxSkinWebBrowser.ReSetWebSize; var   WebClientWidth,WebClientHeight: Integer;   MaxScrollWidth, MaxScrollHeight: Integer;   webPoint: TPoint; begin   if (FWebBrowser.Document <> nil) and ((FWebBrowser.Document  as IHTMLDocument2).body <> nil) then   begin     {先获得页面的最大高度}     if (FScrollBars = ssVertical) or (FScrollBars = ssBoth) then     begin       if IsW3CStd then //如果是W3C标准          MaxScrollHeight := FWebBrowser.oleobject.document.documentelement.ScrollHeight       else          MaxScrollHeight := (FWebBrowser.Document  as IHTMLDocument2).body.getAttribute('ScrollHeight', 0);       if MaxScrollHeight > FWebBrowser.Height  then //总高度大于显示高度度出现滚动条       begin          if IsW3CStd then          begin            WebClientHeight := FWebBrowser.oleobject.document.documentelement.ClientHeight;            webPoint.Y := FWebBrowser.oleobject.document.documentelement.scrollTop;          end          else          begin            WebClientHeight := (FWebBrowser.Document as IHTMLDocument2).body.getAttribute('ClientHeight', 0);            webPoint.Y := ((FWebBrowser.Document as IHTMLDocument2).body as IHTMLElement2).scrollTop;          end;          FVScrollBar.SetRange(0,MaxScrollHeight,webPoint.Y,WebClientHeight);          FVScrollBar.Visible := true;       end else FVScrollBar.Visible := False;     end;     if (FScrollBars = ssHorizontal) or (FScrollBars = ssBoth)  then     begin       if IsW3CStd then //如果是W3C标准         MaxScrollWidth := FWebBrowser.oleobject.document.documentelement.ScrollWidth       else         MaxScrollWidth := (FWebBrowser.Document as IHTMLDocument2).body.getAttribute('ScrollWidth', 0);       //总宽度大于显示宽度,出现滚动条       if MaxScrollWidth > FWebBrowser.Width then       begin         if IsW3CStd then         begin           WebClientWidth := FWebBrowser.oleobject.document.documentelement.ClientWidth;           webPoint.x := FWebBrowser.oleobject.document.documentelement.ScrollLeft;         end         else         begin           WebClientWidth := (FWebBrowser.Document as IHTMLDocument2).body.getAttribute('clientWidth', 0);           webPoint.x := ((FWebBrowser.Document as IHTMLDocument2).body as IHTMLElement2).scrollLeft;         end;         FHScrollBar.SetRange(0,MaxScrollWidth,webPoint.X,WebClientWidth);         FHScrollBar.Visible := True;       end else FHScrollBar.Visible := False;     end;   end;end;