| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

WebBrowser EM_SCROLL [D6, WinXP]

webpauk ©   (2006-05-29 19:08:00) 

можно ли как-нибудь послать WebBrowser сообщение, для перемещения курсора к концу страницы?

procedure ScrollWB(gWB:TWebBrowser;X,Y:integer);
var
 TheDoc:IHTMLDocument2;
 TheWin:IHTMLWindow2;
begin
 try
   TheDoc:=gWB.ControlInterface.Document as IHTMLDocument2;
   if not Assigned(TheDoc) then exit;
   TheWin:=TheDoc.parentWindow;
   TheWin.scrollBy(x, y);
 except
   showmessage('Error during ScrollWB.');
 end;//except
end;

не работает :(

---

parovoZZ   (2006-05-30 18:58:00) [1]

А о каком курсоре вообще идёт речь?

---

webpauk   (2006-05-30 14:08:00) [2]

в смысле - 2 раза повторить - и ОК

---

webpauk   (2006-05-30 14:07:00) [3]

procedure ScrollWB(WB: TWebBrowser);
var
 doc:  OleVariant;
begin
 doc:=wb.OleObject.document;
 doc.parentWindow.scrollto(0, MaxInt);
end;

вконце концов сделал так.
правда,
ScrollWB(Web1)- не работает, а
ScrollWB(Web1);
ScrollWB(Web1)- работает

---

webpauk   (2006-05-30 13:13:00) [4]

> easy ©   (30.05.06 12:36) [8]

неа...

---

webpauk   (2006-05-30 13:13:00) [5]

> easy ©   (30.05.06 12:28) [7]

неа...

---

easy   (2006-05-30 12:36:00) [6]

вот еще в голову пришло..

procedure TForm1.Button1Click(Sender: TObject);
var
 h:integer;
begin
 h := GetWindow(GetWindow(WebBrowser1.Handle, GW_CHILD), GW_CHILD);
 sendMessage(h,WM_VSCROLL, SB_BOTTOM, 0);
end;

---

easy   (2006-05-30 12:28:00) [7]

"начальник..  может быть этот колор?"© =0)

procedure TForm1.Button1Click(Sender: TObject);
var
 range:OleVariant;
begin
 range:=WebBrowser1.OleObject.document.body.createTextRange();
 range.moveStart('textedit');
 range.select();
end;

---

palva   (2006-05-30 11:45:00) [8]

webpauk   (30.05.06 08:34) [4]

> ОНО!!!!

Не оно. Это смещение страницы, а не курсора.

---

webpauk   (2006-05-30 08:37:00) [9]

тока смещает не до конца...

---

webpauk   (2006-05-30 08:34:00) [10]

> easy ©   (29.05.06 21:25) [3]

ОНО!!!!

---

easy   (2006-05-29 21:25:00) [11]

procedure TForm1.Button1Click(Sender: TObject);
var
 h:integer;
 doc:OleVariant;
begin
 doc:=WebBrowser1.OleObject.document;
 h:=doc.body.scrollHeight;
 doc.parentWindow.scrollBy(0,h);
end;

не оно?..

---

webpauk   (2006-05-29 19:34:00) [12]

> parovoZZ ©   (29.05.06 19:31) [1]

help

---

parovoZZ   (2006-05-29 19:31:00) [13]

А якоря не проще?

---

Наверх