WebBrowser屏幕滚动的实现,设置WebBrowser的焦点

时间:2010-02-26 18:24:28  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:dow.ScrollBy(dx,dy);或者  a.Get_ParentWindow.Scroll(x,y); 二、让WebBrowser得到焦点。procedure SetFocusToDoc;begin  if Wbe1.Document <> nil then  with Wbe1.Application as IOleobject do   DoVerb(OLEIVERB_UIACTIVATE, nil, Self, 0, Handle, GetClientRect);end;
  正文:一、若要滚动WebBrowser的内容
uses MSHTML;
……
var
   WebBrowser1: TWebBrowser;
 a: IHTMLDocument2;
begin
  a :=WebBrowser1.Document as IHTMLDocument2;
  a.Get_ParentWindow.ScrollBy(dx,dy);
或者
  a.Get_ParentWindow.Scroll(x,y);
二、让WebBrowser得到焦点。
procedure SetFocusToDoc;
begin
  if Wbe1.Document <> nil then
  with Wbe1.Application as IOleobject do
   DoVerb(OLEIVERB_UIACTIVATE, nil, Self, 0, Handle, GetClientRect);
end;

WebBrowser屏幕滚动的实现,设置WebBrowser的焦点》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12937.html


关键字:

关于《WebBrowser屏幕滚动的实现,设置WebBrowser的焦点》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td