如何让浏览器(webbrowser)没有下拉框和横拉框? rt 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 搞定了!//过滤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; 非常感谢 ronaldli(木的)。我从其它地方找到下面的代码也可以解决这个问题。WebBrowser1.OleObject.document.body.scroll := 'no';我还想知道怎么去掉3d边框,我还是另开一个帖子把。 ronaldli(木的) 万分抱歉,给分时加错了。 没有关系的,反正我也理解错题意了我以为你要屏蔽网页中的所有的combobox,上面的代码可以实现此功能 chart 柱状图显示问题 WebService部署到Windows2003就无法生成xml 如何默认DSPACK的分辨率 郁闷中,散分....................... 是否应该释放? 求救:如何获取网卡的MAC地址? 关于批量修改数据的sql语句 如何在delphi中加载twebbrower控件? 大家好,在Delphi中怎样才能体现会计报表格式 谢谢 如何算是精通Delphi? 高手,,我问一个进度条的问题 紧急请教:在delphi中应用unicode的方法及与ansistring的区别,紧急!紧急!紧急!
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;
WebBrowser1.OleObject.document.body.scroll := 'no';
我还想知道怎么去掉3d边框,我还是另开一个帖子把。
我以为你要屏蔽网页中的所有的combobox,上面的代码可以实现此功能