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.