EmbeddedWB scrollt nicht automatisch nach unten
Hallo,
ich habe einen EmbeddedWB in dem sich ständig Daten aktualisieren. Leider steht der aktuelle Wert immer ganz unten, den sieht man aber nicht weil der Browser nicht automatisch nach unten scrollt. Ich habe hiermit ein wenig rumgetestet aber habe nicht erreicht damit.
Delphi-Quellcode:
function TForm1.EmbeddedWB1UpdateUI: HRESULT;
begin if ((EmbeddedWB1.Document as IHTMLDocument2).body as IHTMLElement2).scrollTop > 200 then EmbeddedWB1.OleObject.Document.ParentWindow.ScrollTo(0, ?); end; Ich habe nun damit rumprobiert:
Delphi-Quellcode:
Da muss ich aber auch wissen wie weit schon gescrollt wurde.
procedure SetScrollTop(const Value: integer);
var id : IHTMLDocument2; Body : IHTMLElement2; begin id := Form1.wb.Document as IHTMLDocument2; Body := id.Body as IHTMLElement2; Body.ScrollTop := Value; End; Jemand eine Idee wie ich das machen kann? Gruss Capo |
Re: EmbeddedWB scrollt nicht automatisch nach unten
Delphi-Quellcode:
:hi:
EmbeddedWB1.ScrollToBottom;
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:26 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz