PowerPoint mit TWebbrowser Problem

[f4k3]

Moin Liebe DP'ler

Und zwar wird auf der rechten Seite ein Scrollbalken angezeigt ... mit dem ich die einzelnen Folien ansteuern kann ... will ich aber gar nich haben xD

hat jemand ne idee wie ich den weg bekomm?!

Also wie gesagt ... die Powerpoint die da grad abgespielt wird ... wird auf einer TWebbrowser-Komponente angezeigt ... ihr findet nen Screen im Anhang

Thanks,

euer f4k3

[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;

[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.

[berens]

Copy&Paste aus dem Handbuch meiner Software:


In der gesamten Präsentation darf weder bei den Folienübergängen [Bildschirmpräsentation/Folienübergang...], noch bei Animationen [Bildschirmpräsentation/Benutzerdefinierte Animationen...] einzelner Objekte die Option „Beim Klicken“ aktiviert sein. Sonst wartet die Präsentation an jener Stelle auf einen Mausklick und läuft nicht automatisch durch.

Starten Sie PowerPoint® und öffnen Sie die gewünschte Datei (*.ppt).

Wählen Sie im Menü [Bildschirmpräsentation/Bildschirmpräsentation einrichten] und stellen Sie folgende Optionen genau so ein, wie Sie es in der Grafik unten sehen.

Im Abschnitt [Art der Präsentation] folgende Optionen auswählen:
„Ansicht durch ein Individuum (Fenster)“ aktivieren und „Bildlaufleiste anzeigen“ deaktivieren.

Im Abschnitt [Optionen anzeigen] nur die Option „Wiederholen, bis ´Esc´ gedrückt wird“ aktivieren.

Im Abschnitt [Folien anzeigen] die gewünschte Option auswählen. Üblicherweise ist es die Option „Alle“.
Im Abschnitt [Nächste Folie] bitte die Option „Anzeigedauer verwenden, wenn vorhanden“ wählen.
Menü [Datei/Speichern unter]. Speicherort auswählen und Dateinamen eingeben.

Als Dateityp „PowerPoint-Bildschirmpräsentation (*.pps) auswählen.

„Speichern“. Jetzt ist die Datei perfekt vorbereitet.

--------------------------------------

Beim Anzeigen einer PowerPoint® Datei wird nichts, bzw. nur eine Meldung, angezeigt.

Stellen Sie sicher, dass eine Vollversion von Microsoft® PowerPoint® neuer oder gleich Version 2000 installiert ist. Starten Sie PowerPoint® um die Funktionalität zu prüfen.

Starten Sie den Windows-Explorer. [Start] – [Programme] – [Zubehör] – Windows-Explorer

Wählen Sie im Menü [Extras] – [Optionen], [Dateitypen]

Wählen Sie „PPS“ aus.

Klicken Sie auf “Erweitert”.

Entfernen Sie den Haken bei “Öffnen nach dem Download bestätigen”

Wiederholen Sie diesen Schritt mit dem Dateityp PPT.

Bestätigen Sie alle Fenster mit [OK] und starten Sie den Computer neu.

[toms]

Zitat von f4k3:

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.

Vielleicht hängt das mit dem zusammen:

http://support.microsoft.com/kb/927009