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

Question

RT

Answer 1

在组件栏Additional找个TApplicationEvents放到窗体上
在他的OnMessage框里写代码
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = wm_rbuttondown) or (Msg.message = wm_rbuttonup) or
    (msg.message = WM_RBUTTONDBLCLK)   then
begin
    if IsChild(Webbrowser1.Handle, Msg.hwnd) then
      Handled := true;//如果有其他需要处理的，在这里加上你要处理的代码
end;
end;