如何在IE控件的编程中实现自动滚动功能。(100分)

chonghai · 2001-09-21

现在有些网页（读书类），在IE中可以实现很平滑的自动滚动。一般是双击体现。
请教各位的是如何在Delphi程序中实现呢。
谢谢。

Pan Ying · 2001-09-22

这个问题还没有解决？？
其实我也不知道，但是MyIE就可以自动滚动，
而且该软件也提供源码，不过是VC编的，
我试着去看看吧，
你不妨自己看看

人在边缘 · 2001-09-22

Try it ！！！ Only use it in WebBrowser 。

procedure TForm1.WebBrowser1KeyDown(Sender: TObject
var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F8 then
SendMessage(WebBrowser1.Handle,WM_VSCROLL,SB_PAGEDOWN,0)
else if Key = VK_F7 then
SendMessage(WebBrowser1.Handle,WM_VSCROLL,SB_PAGEUP,0)

end;

Pan Ying · 2001-09-22

找到MyIE中的代码

代码:

LPDISPATCH pDisp = NULL;

IHTMLDocument2 *pHTMLDoc = NULL;
IHTMLWindow2 *pHTMLWnd = NULL;

try{
	pDisp = pvw->GetHtmlDocument();
	if( pDisp )
	{
		if (SUCCEEDED(pDisp->QueryInterface(IID_IHTMLDocument2, (void**)&amp;pHTMLDoc)))
		{
			if(SUCCEEDED(pHTMLDoc->get_parentWindow( &amp;pHTMLWnd )))
			{
				pHTMLWnd->scrollBy(0, 1);
			}
		}
	}
}
catch(...)
{
}

try{
	if(pHTMLWnd!=NULL)
		pHTMLWnd->Release();
	if(pHTMLDoc!=NULL)
		pHTMLDoc->Release();
	if(pDisp!=NULL)
		pDisp->Release();
}
catch(...)
{
}

使用Delphi从WebBrowser 可以得到Document接口，
按上面的代码再得到一个窗口接口，再可以实现该功能。

chonghai · 2001-11-26

多人接受答案了。

如何在IE控件的编程中实现自动滚动功能。(100分)

chonghai

Unregistered / Unconfirmed

Pan Ying

Unregistered / Unconfirmed

人在边缘

Unregistered / Unconfirmed

Pan Ying

Unregistered / Unconfirmed

chonghai

Unregistered / Unconfirmed

Similar threads