rt

解决方案 »

  1.   

    搞定了!//过滤select函数
    function FilterSelects(aText: String): String;
    var
      vBeginPos, vEndPos: Integer;
    begin
      vBeginPos := Pos('<SELECT', aText);
      while vBeginPos <> 0 do
      begin
        vEndPos := Pos('</SELECT>', aText) + Length('</SELECT>');
        Delete(aText, vBeginPos, vEndPos - vBeginPos);
        vBeginPos := Pos('<SELECT', aText);
      end;
      Result := aText;
    end;//WebBrowser1的OnDocumentComplete事件处理函数
    procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    begin
      WebBrowser1.OleObject.document.body.innerHtml :=
        FilterSelects(String(WebBrowser1.OleObject.document.body.innerHtml));
    end;
      

  2.   

    非常感谢 ronaldli(木的)。我从其它地方找到下面的代码也可以解决这个问题。
    WebBrowser1.OleObject.document.body.scroll := 'no';
    我还想知道怎么去掉3d边框,我还是另开一个帖子把。
      

  3.   

    ronaldli(木的) 万分抱歉,给分时加错了。
      

  4.   

    没有关系的,反正我也理解错题意了
    我以为你要屏蔽网页中的所有的combobox,上面的代码可以实现此功能