delphi如何隐藏webBrowser的滚动条，如何屏蔽右键

转载于 2020-04-30 18:02:53 发布 · 409 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：https://blog.youkuaiyun.com/hank5658/article/details/7852011

Delphi 专栏收录该内容

23 篇文章

订阅专栏

本文介绍如何使用Delphi代码禁用WebBrowser控件的滚动条显示，并通过重写消息处理来阻止WebBrowser控件的右键菜单弹出，实现对浏览器控件的自定义控制。

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin    //水平垂直均可隐藏
WebBrowser1.oleobject.Document.body.Scroll := 'no';
WebBrowser1.oleobject.Document.documentElement.style.overflow := 'hidden';
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
//要加一个ApplicationEvents
with Msg do
begin
    if not IsChild(WebBrowser1.Handle,hwnd) then Exit;
    Handled := (message = WM_RBUTTONDOWN) or (message = WM_RBUTTONUP) or (message = WM_CONTEXTMENU);
end;
end;
————————————————
版权声明：本文为优快云博主「hank5658」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.youkuaiyun.com/hank5658/article/details/7852011