scrollbalken

[GoTo0815]

Hallo,

Delphi 6

wie kann ich beim TWebbrowser die Scrollbalken unbenutzbar machen oder entfernen?

Danke

gruß

Hendrik

[RavenIV]

gib bitte Deinem Beitrag einen vernünftigen Namen.
z.B. "Scrollbalken bei TWebbrowser deaktivieren"

[GoTo0815]

ok nächstes mal, oder kann ich die überschrift noch verändern?

[xaromz]

Hallo,

Zitat von HendrikSturm:

ok nächstes mal, oder kann ich die überschrift noch verändern?

ja, kannst Du: Editiere Deinen ersten Beitrag und ändere dabei den Titel.

Gruß
xaromz

[himitsu]

Du könntest es ja eventuell per JavaScript versuchen ... das sollte sich auch von Delphi aus ansprechen/ändern lassen.

http://www.selfhtml.net/javascript/o...htm#scrollbars

[capo]

hi

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with WebBrowser1 do
  begin
    OleObject.document.body.Style.scrollbarArrowColor := '#0099FF';
    OleObject.document.body.Style.scrollbar3DLIGHTCOLOR := '#FFFFFF';
    OleObject.document.body.Style.scrollbarDarkShadowColor := '#0099FF';
    OleObject.document.body.Style.scrollbarFaceColor := '#99CCFF';
    OleObject.document.body.Style.scrollbarHighlightColor := '#0099FF';
    OleObject.Document.body.Style.scrollbarShadowColor := '#0099FF';
    OleObject.Document.body.Style.scrollbarTrackColor := '#FFFFFF';
  end;
end;

quelle:
http://www.swissdelphicenter.ch/de/showcode.php?id=1255


capo

[himitsu]

Da es anscheinend für Scrollbars nicht sowas wie Enable, oder Visible in CSS gibt, wird dieser Code nicht viel bringen, denn dort werden nur die Farben geändert und nich die Benutzbarkeit.

Und dann ist es der Zugriff auf CSS (.Style) und nicht JavaScript ... ich such dann man bei mir .. hab den Zugriff auf's JS (oder man hier nach meinem ShoutBoxReader suchen).

[add]
hab's jetzt zwar nicht getestet, aber so könnte funktionieren

Delphi-Quellcode:

OleVariant(WebBrowser1.Document as IHTMLDocument2).body.scrollbars.visible := false;
WebBrowser1.document.body.scrollbars.visible := false;

(die Beiden sind im Grunde die selben Codes, nur daß der Zugriff etwas anderes ist)

[capo]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.OleObject.Document.Body.Style.OverflowX := 'hidden';
  WebBrowser1.OleObject.Document.Body.Style.OverflowY := 'hidden';
end;

hab da auch was gefunden, hatte mich zuerst vertan, es war spät gestern

capo

[himitsu]

Ohh, stimmt ja, dat gab's ja och noch ... also deine CSS-Variante (Overflow) is natürlich besser

[GoTo0815]

Hallo,

ja das war die Lösung!!! Danke!!!!