twebbrowser + scroll

← →
taliban (2005-11-27 04:08) [0]

короче народ, я не знаю куда ето писать, напишу сюда!
вобще у меня сначала просьба убедительная:
если не уверен, не пиши!
просто очень надо, а мусор и споры разгребать не охота!
а теперь к делу:
есть компонент twebbrowser
в него загружается страничка, и мне надо его програмно прокрутить до упора вниз скролл, тоесть прокрутить полосы прокрутки так, чтоб увидеть низ документа ...
говорю сразу!
это (именно ето) не катит!
SendMessage(twebbrowser->Handle, WM_VSCROLL, MAKEWORD(SB_BOTTOM, 0), 0);

народ, реально нужен хелп !!!!! :)

← →
Taurus (2005-12-05 15:00) [1]

Попробуй через эту функцию, на некоторых версиях пашет...

type
TWBPosition = (wbPosBottom, wbPosTop, wbPosRight);

function WB_ScrollTo(WB: TWebBrowser; Position: TWBPosition): Boolean;
var
ParentW: OLEVariant;
begin
Result := WB.Document <> nil;
if Result then
begin
ParentW := WB.OleObject.Document.ParentWindow;
case Position of
wbPosBottom: ParentW.ScrollTo(0, ParentW.Screen.Height);
wbPosTop: ParentW.ScrollTo(0, 0);
wbPosRight: ParentW.ScrollTo(ParentW.Screen.Width, 0);
end;
end;
end;

twebbrowser + scroll Найти похожие ветки