字体大小

　　类似"字体"菜单上的从"最大"到"最小"五项（对应整数0～4，Largest等假设为五个菜单项的名字，Tag 属性分别设为0～4）。

　　　A、读取当前页面字体大小。

　　　　　var

　　　　　　t: OleVariant;

　　　　　Begin

　　　　　　WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,

　　　　　　　EmptyParam,t);

　　　　　　case t of

　　　　　　4: Largest.Checked :=true;

　　　　　　3: Larger.Checked :=true;

　　　　　　2: Middle.Checked :=true;

　　　　　　1: Small.Checked :=true;

　　　　　　0: Smallest.Checked :=true;

　　　　　　end;

　　　　　end;

　　　B、设置页面字体大小。

　　　　　Largest.Checked :=false;

　　　　　Larger.Checked :=false;

　　　　　Middle.Checked :=false;

　　　　　Small.Checked :=false;

　　　　　Smallest.Checked :=false;

　　　　　TMenuItem(Sender).Checked :=true;

　　　　　t :=TMenuItem(Sender).Tag;

　　　　　WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,

　　　　　　t,t);