Форум: "Основная";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];

Вниз

WebBrowser EM_SCROLL   Найти похожие ветки 

← →
webpauk   (2006-05-29 19:08) [0]

можно ли как-нибудь послать 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-29 19:31) [1]

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

---

← →
webpauk   (2006-05-29 19:34) [2]

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

help

---

← →
easy ©   (2006-05-29 21:25) [3]

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-30 08:34) [4]

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

ОНО!!!!

---

← →
webpauk   (2006-05-30 08:37) [5]

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

---

← →
palva ©   (2006-05-30 11:45) [6]

webpauk   (30.05.06 08:34) [4]

> ОНО!!!!

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

---

← →
easy ©   (2006-05-30 12:28) [7]

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

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

---

← →
easy ©   (2006-05-30 12:36) [8]

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

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;

---

← →
webpauk   (2006-05-30 13:13) [9]

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

неа...

---

← →
webpauk   (2006-05-30 13:13) [10]

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

неа...

---

← →
webpauk   (2006-05-30 14:07) [11]

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 14:08) [12]

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

---

← →
parovoZZ ©   (2006-05-30 18:58) [13]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.011 c