Scrollbar im TTextbrowser (CLX)

[Nathanael]

Hallo zusammen,

wie kann ich feststellten, on im TTExtBrowser der Scrollbar gerade angezeigt wird

Danke im vorraus,
Nathanael

[Nathanael]

Weiß das wirklich keiner

[Daniel B]

Hallo,

vielleicht sagst Du uns was Du damit bezwecken möchtest, mir ist keine Funktion bekannt die sowas sagen könnte.
Vielleicht kann man Dein Problem auch anders lösen.

Grüsse, Daniel

[Nathanael]

Hallo Daniel,

Ich will ein "Autosize" implementieren (bei vorgegebener Breite). Das hatte ich so vor, daß ich die Höhe von 0 an so lange vergrößere, bis kein vertikaler Scrollbar mehr da ist.
Wär super, wenn Du eine andere Lösung hättest.

Danke,
Nathanael

[Daniel B]

Hallo Nathanael,

leider kann ich Dir da nicht helfen. Ich wüsste nicht wie man sowas abfragen könnte. Hab leider nichtmal eine Idee.
Das einzigste was ich kann, ist die Scrollbars ausschalten, geht aber auch nur wenn die Seite schon fertig geladen ist.

Delphi-Quellcode:

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

Aber das wird Dir warscheinlich nicht viel bringen.

Grüsse, Daniel

[jbg]

TTextBrowser (CLX) <> IWebBrowser (ActiveX)


Schau dir mal in der Unit Qt.pas die QScrollView_ Funktionen an. Vielleicht kannst du da ja was entsprechendes finden.

[Nathanael]

Hi Daniel,

stimmt, bringt mir nicht viel dafür. Kann die Info trotzdem gebrauchen Thanks

Hi jbg,

cool, die kanne ich noch gar nicht
Das Problem ist nur: Wie bekomme ich einen QScrollViewH von meinem TTextBrowser? Geht das überhaupt?