Zitat von
Ydobon:
Hi!
Die Position bekommst du einfach mit
((EmbeddedWB1.Document as IHTMLDocument2).body as IHTMLElement2).scrollTop
Setzen der Position geht damit auch. Ich kann dir allerdings nicht sagen, ob es dir etwas nützt.
vielen vielen dank!!
das mit dem setzen habe ich schon gewusst, aber fand meine methode irgendwie einfacher.
Jetzt habe ich aber noch ein Problem, und zwar habe ich jetzt rausgefunden wo ich diesen code einfügen muss, was auch super funktioniert.
Allerdings erst nach einer Fehlermeldung beim start.
Ich denke mal das liegt daran, dass das document noch nicht fertig geladen ist ...??
Also ich habe folgenden code:
Delphi-Quellcode:
function TForm1.EmbeddedWB1UpdateUI: HRESULT;
begin
if ((EmbeddedWB1.Document as IHTMLDocument2).body as IHTMLElement2).scrollTop < 500 then
EmbeddedWB1.OleObject.Document.ParentWindow.ScrollTo(0, 500);
end;
Vielen dank nochmals.
mfg headi