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:
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;
Da muss ich aber auch wissen wie weit schon gescrollt wurde.
Jemand eine Idee wie ich das machen kann?
Gruss
Capo