WebBrowser不显示滚动条的方法

最新推荐文章于 2022-04-11 10:30:59 发布

原创最新推荐文章于 2022-04-11 10:30:59 发布 · 3k 阅读

0 ·

CC 4.0 BY-SA版权

delphi开发同时被 2 个专栏收录

62 篇文章

订阅专栏

Web编程

20 篇文章

订阅专栏

本文介绍了一种在 Delphi 中使用 WebBrowser 控件时，通过修改网页属性来隐藏滚动条并调整边距的方法。该方法可在页面加载完成时执行，但每次页面刷新后效果会消失。

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
    WebBrowser1.OleObject.Document.Body.Scroll := 'no';
    WebBrowser1.OleObject.Document.Body.style.border := 'none';
    webbrowser1.OleObject.Document.Body.Style.margin := '0px';

end;

说明:本质是上通过修改WEB页的属性达到目的,一旦刷新页面,滚动条就会重新出现.