twebbrowser + scroll
taliban © (2005-11-27 04:08:00)
короче народ, я не знаю куда ето писать, напишу сюда!
вобще у меня сначала просьба убедительная:
если не уверен, не пиши!
просто очень надо, а мусор и споры разгребать не охота!
а теперь к делу:
есть компонент twebbrowser
в него загружается страничка, и мне надо его програмно
прокрутить до упора вниз скролл, тоесть прокрутить полосы прокрутки
так, чтоб увидеть низ документа ...
говорю сразу!
это (именно ето) не катит!
SendMessage(twebbrowser->Handle, WM_VSCROLL,
MAKEWORD(SB_BOTTOM, 0), 0);
народ, реально нужен хелп !!!!! :)
Taurus (2005-12-05 15:00: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;
Наверх 
ЧАТ |
Орешник |
|
