![]() |
scrollen im twebbrowser
hallo, nachrichten ist ein twebbrowser, der als chat-nachrichtenfenster dient... immer wenn jedoch eine zeile hinzukommt
scrollt der nicht bis zum schluss, sondern der user muss manuell scrollen, nun dachte ich wenn man nämlich in den twebbrowser klickt und ende drückt dass dies auch mit einer simulierten eingabe funktioniert... tuts jedoch nicht, passiert gar nichts... jemand ne ahnung? nachrichten.setfocus; SendMessage(nachrichten.handle,wm_keydown, vk_end, 0); |
Re: scrollen im twebbrowser
hier mal einen Auszug wie ich im TWebbrowser scrolle (per Buttonclick)
Delphi-Quellcode:
"Browser" ist dabei ein TWebBrowser.
var LVar: OLEVariant;
begin LVar := OleVariant(Browser.Document as IHTMLDocument2); if Sender = BtnScrollLeft then LVar.Body.ScrollLeft := LVar.Body.ScrollLeft - 5 else if Sender = BtnScrollRight then LVar.Body.ScrollLeft := LVar.Body.ScrollLeft + 5 else if Sender = BtnScrollUp then LVar.Body.ScrollTop := LVar.Body.ScrollTop - 5 else if Sender = BtnScrollDown then LVar.Body.ScrollTop := LVar.Body.ScrollTop + 5; |
Re: scrollen im twebbrowser
Moin.
Wenn grundsätzlich das zuletzt hinten angefügte Element sichtbar sein soll, dann geht auch das hier:
Delphi-Quellcode:
Grüße vom marabu
procedure TDemoForm.ScrollDown(doc: IHTMLDocument2);
var ec: IHTMLElementCollection; v: OleVariant; e: IHTMLElement; begin ec := Doc.body.children as IHTMLElementCollection; v := Pred(ec.length); e := ec.item(v, null) as IHTMLElement; if Assigned(e) then e.scrollIntoView(false); end; |
Re: scrollen im twebbrowser
hmm die prozedur funzt bei mir nicht...
was ist demoform? der compiler meckert ausserdem bei "null" .... |
Re: scrollen im twebbrowser
Zitat:
Zitat:
Ich würde sagen hier fehlen noch ziemlich die Grundlagen. Mit Copy an Paste wirst du nicht weitkommen. |
Re: scrollen im twebbrowser
Zitat:
Versuch doch einfach mal die Variants-Unit mit einzubinden, dann solltest du auch NULL zur Verfügung haben. MfG Thorsten |
Re: scrollen im twebbrowser
hmm danke schonma... werds gleich versuchen...ich benutze delphi 7 enterprise...
aber nochwas die prozedur meckert auch... was is ihtml2? dieser doc... ich weiss nich was ich an die prozedur übergeben soll... |
Re: scrollen im twebbrowser
Hallo,
IHTMLDocument2 lebt in der Unit MSHTML - die solltest du in deiner Uses Klausel aufführen. Grüße vom marabu |
Re: scrollen im twebbrowser
achja luckie... ja ich war damals in pascal recht fit, so vor 15 jahren, deshalb steig ich bei delphi ein und mir fehlen wirklich teilweise grundlagen aber copy & paste brauch ich erstens nicht ausserdem hab ich dafür hier im forum schon genug gefunden...
also meine form heisst form1... wenn ich das mit form1 mach meckert der compiler ebenfalls... mit nil werd ich mal versuchen |
Re: scrollen im twebbrowser
hey marabu, die unit ist eingebunden...
gib mir doch mal ein beispiel wie diese prozedur aufgerufen werden soll... und wenn ich die prozedur form1.scrolldown...... nenne sagt der compiler form1 redefiniert... bitte nochma n tipp, durch dich bekomm ichs wohl noch hin |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz