delphi 使用WebBrowse播放PPT怎么隱藏右邊的滾動條？

delphi 使用WebBrowse播放PPT如何隱藏右邊的滾動條？急！
RT

[解决办法]
在组件栏Additional找个TApplicationEvents放到窗体上
在他的OnMessage框里写代码

Delphi(Pascal) code

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean);beginif (Msg.message = wm_rbuttondown) or (Msg.message = wm_rbuttonup) or    (msg.message = WM_RBUTTONDBLCLK)   thenbegin    if IsChild(Webbrowser1.Handle, Msg.hwnd) then      Handled := true;//如果有其他需要处理的，在这里加上你要处理的代码end;end;