PowerPoint mit TWebbrowser Problem

[f4k3]

Zitat von 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;

Also der "Hack" funktioniert schonmal ... leider nicht so wie ich es mir gewünscht habe ... der bereich in dem die Scrollbar angezeigt wird, wird leider mit angezeigt ... es wird zwar keine scrollbar mehr angezeigt ... aber eine leere weiße leiste am rechten rand ... also wenn es jetzt noch nen hack gibt den scrollbarbereich komplett auszublenden ... ist es perfekt

Ein weiteres Phänomen macht mir noch zu schaffen ... die Powerpoint-Präsentation wird nicht unter Vista angezeigt ...
Nachdem ich die Powerpoint in einem OpenDialog ausgewählt habe ... kommt die frage ob ich die Datei öffnen, speichern oder den Vorgang abbrechen möchte ...

öffnen: MS Powerpoint wird gestartet, wenn nicht installiert wird eine meldung ausgegeben
speichern: SaveDialog erscheint ...
Abbrechen: passiert natürlich gar nix ...

in der TWebbrowser Komponente steht dann nur Navigation zu der Webseite wurde abgebrochen, geben Sie de Adresse erneut ein. An IE 7 kanns nicht liegen ... der ist aufm XP-Rechner auch installiert.