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

最新推荐文章于 2021-12-06 17:50:15 发布

原创最新推荐文章于 2021-12-06 17:50:15 发布 · 5.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#webbrowser #delphi #url

平时碰见的问题专栏收录该内容

20 篇文章

订阅专栏

本文探讨了在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;