Программное скролирование в WebBrowser

← →
Sokrat © (2004-11-12 12:09) [0]

Вопрос вот в чем. Есть браузер с загруженой страничкой. Нужно осуществить скроллирование содержимого вниз на строчку через нек. время. Проблема в том, что все работает только, если предварительно щелкнуть на браузере мышкой. Setfocus не катит.
Работает только, если делать navigate и сразу setfocus. Но при повторном запуске navigate уже не катит. Подскажите как программно передать фокус на браузер?
ЗЫ: Пробовал PostMessage(WebBrowser1.handle,WM_LBUTTONDOWN,MK_LEFT,0) или что-то в этом духе. Не работает.
Заранее спасибо.

← →
easy © (2004-11-12 12:18) [1]

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin toHandle := GetWindow(GetWindow(WebBrowser1.Handle, GW_CHILD), GW_CHILD); Button1.Enabled:=true; end; procedure TForm1.Button1Click(Sender: TObject); begin sendmessage(toHandle,WM_VSCROLL,LOWORD(SB_LINEDOWN),0); end; procedure TForm1.FormCreate(Sender: TObject); begin Button1.Enabled:=false; WebBrowser1.Navigate("http://delphimaster.net/view/1-1100250594/"); end;

← →
Sokrat © (2004-11-12 13:41) [2]

ОГРОМНОЕ СПАСИБО!!! Все работает. Только вот вопросик еще, как убрать сами полосы прокрутки с браузера, а то свойства ScrollBars у него нет.
Заранее спасибо.

WebBrowser1.OleObject.document.body.style.overflow := "hidden";

Программное скролирование в WebBrowser Найти похожие ветки