Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];
ВнизПрограммное скролирование в 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 у него нет.
Заранее спасибо.
← →
easy © (2004-11-12 14:39) [3]WebBrowser1.OleObject.document.body.style.overflow := "hidden";
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c