网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
Delphi的TWebBrowser编程综述
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式
  String(AUrl));
         RLfile.Free;
         end;
        var
         AddFav: function(Handle: THandle;
          UrlPath: PChar; UrlPathSize: Cardinal;
          Title: PChar; TitleSize: Cardinal;
          FavIDLIST: pItemIDList): Bool; stdcall;
         FDoc: IHTMLDocument2;
         UrlPath, url, title: array[0..MAX_PATH] of char;
         H: HWnd;
         pidl: pItemIDList;
         FRetOK: Bool;
        begin
         FDoc := IHTMLDocument2(IE.Document);
         if FDoc = nil then exit;
         StrPCopy(Title, FDoc.Get_title);
         StrPCopy(url, FDoc.Get_url);
         if Url <> '''' then
         begin
          H := LoadLibrary(PChar(''shdocvw.dll''));
          if H <> 0 then
          begin
           SHGetSpecialFolderLocation(0, CSIDL_FAVORITES, pidl);
           AddFav := GetProcAddress(H, PChar(''DoAddToFavDlg''));
           if Assigned(AddFav) then
            FRetOK :=AddFav(Handle, UrlPath, Sizeof(UrlPath),
    Title, Sizeof(Title), pidl)
          end;
          FreeLibrary(h);
          if FRetOK then
           CreateUrl(UrlPath, Url);
         end
        end;

    ------------------------------------------------------------------------------------------------
    6、使WebBrowser获得焦点
      TWebBrowser非常特殊,它从TWinControl继承来的SetFocus方法并不能使得它所包含的文档获得焦点,从而不能立即使用Internet
    Explorer本身具有得快捷键,解决方法如下:<
      procedure TForm1.SetFocusToDoc;
      begin
       if WebBrowser1.Document <> nil then
        with WebBrowser1.Application as IOleobject do
         DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle,
    GetClientRect);
      end;
      除此之外,我还找到一种更简单的方法,这里一并列出:
      if WebBrowser1.Document <> nil then
       IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).focus

      刚找
  • 上一篇资讯: 使用Delphi获取系列信息
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号