Отследить конец страницы в WebBrowser
Аллоха, All!
А я вот щас как сморожу очередную глупость:
Как subj при скроле?
Я нашел как скролить
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, 100);
или
var
WebBrowser: IWEBBrowser;
...
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser := pDisp as IWEBBrowser;
...
(WebBrowser.Document as IHTMLDocument2).parentWindow.scrollBy(0, 100);
в MSDN написано
IHTMLWindow2::scrollBy Method
Return Value
Returns S_OK if successful, or an error value otherwise.
И вот по этому S_OK я и хотел ловить конец страницы при скролле.
(WebBrowser.Document as IHTMLDocument2).parentWindow = IHTMLWindow2
Но почему-то в MSHTML scrollBy описан как procedure, да и
v: variant
v := WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, 100);
v = Unassigned (всегда)
Еще была идея отслеживать текущую позицию скролбара и переходить на
следующий файл если она не изменяется. Нашел вот что (в MSHTML):
DispHTMLDivPosition.style: IHTMLStyle;
IHTMLStyle.position;
Но как добраться до
DispHTMLDivPosition = dispinterface
я не знаю.
В общем вот что я хочу получить:
Имеется список файлов (TListView) при клацании пробелом на файле
происходит его скроль в WebBrowser, при достижении конца файла -
переход на следующий. В общем принцип как The Bat! при прочтении
писем.
Здравствуйте !
Логичнее вего, наверно, обрабатывать событие onscroll объекта
window смотреть куда проскроллилось. Если до конца документа -
совершать переход в Listview.
--
С уважением, Вахтуров Виктор.
Номер выпуска : 4585
Возраст листа : 626 (дней)
Количество подписчиков : 527
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/380987
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru