PowerPoint mit TWebbrowser Problem

[toms]

Hallo,

Die Scrollbar bekommt man leider nicht direkt weg.

Da muss man wohl einen "Hack" anwenden, damit die Scrollbar entfernt.

Delphi-Quellcode:

//Procedure um die PP-Scrollbar zu verstecken.
procedure WB_HidePPScrollbar(WB: TWebbrowser);
var
  wndChild, wndScrollBarPane: HWND;
begin
    wndChild := FindWindowEx(WB.Handle,0,'Shell DocObject View',nil);
    if wndChild <> 0 then
    begin
      wndChild := FindWindowEx(wndChild, 0, 'childClass', nil);
      wndChild := FindWindowEx(wndChild, 0, 'childClass', nil);
      wndScrollBarPane := FindWindowEx(wndChild, 0, 'paneClass', nil);
      if wndScrollBarPane <> 0 then
      begin
        SendMessage(wndScrollBarPane, WM_CLOSE, 0, 0);
        // nötig, damit sich das PP-Object redimensioniert
        WB.Width := WB.Width - 1;
        WB.Width := WB.Width + 1;
      end;
    end;
end;

Delphi-Quellcode:

//Im OnDocumentComplete die Scrollbar verstecken
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  WB_HidePPScrollbar(Sender as TWebbrowser);
end;