我自己写了一个浏览器, 请问如何设置WebBrowser控件的字体大小?谢谢!

解决方案 »

  1.   

    var
       size:OleVariant;
    begin
          size:=4;// 0,1,2,3,4 分别是最小->最大
          for i:=0 to HomePage.ActivePage.ControlCount-1 do
             if HomePage.ActivePage.Controls[i] is TWebBrowser  then
             begin
               try
               (HomePage.ActivePage.Controls[i] as TWebBrowser).ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DODEFAULT,size,size);//设置字体大小
               except
               end;
             end;
    end 
      

  2.   

    字体大小  类似“字体”菜单上的从“最大”到“最小”五项(对应整数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);
      

  3.   

    homepage 就是webbrowser,只是改了個name 而已