DelphiXE5FireMonkey,Windows下的WebBrowser组件编写.docVIP

Delphi XE5 FireMonkey,Windows下的WebBrowser组件编写 其实FireMonkey非常好用, 但就是缺了WINDOWS下的浏览器组件, 有时程序可能需要一个嵌入式的框框, 而Delphi且没有为我们提供这个东东...咋整呢... 好像有大牛使用谷歌浏览器组件封装过一个唉, 具体不知道了,我也没看过, 听说还要带一大堆的dll文件, 貌似有几十M呢,.........好像用不着啊......... 那我们该怎么办呢....其实在FireMonkey的前身DxScene中有一个3d浏览器的例程, 不知道大家看过没有, 我是照着写了下, 不过是将浏览器封装在DLL中的, 这样可以必免引入vcl库了,,,,但不好就是要带一个dll走........实现了是实现了, 但感觉用着不咋爽,特别是大面积的还带有js自动刷新某些页面的时候就会发现 cpu占得很大, 绘图效果还不好了.... 于是就有了一个想法, 能不能将浏览器组件冰封装在dll中的Form中呢.. 然后以子父窗口的形式来创建,,, 答案是肯定可以的, 接下来我们就开始实现吧 首先我们需要编写一个dll,, 在里面创建一个Form,再在 Form上放置一个浏览器组件, 将Form设置为无边框模式, Webbrowser设置为Client对齐 然后我们需要重新编写浏览器的事件, 如下 大家会发现少下sender这个参数, 其实我是故意不要的,因为也用不着, 呵呵, 这里我定义了浏览器最基本的一些事件, 然后该怎么办呢, 继续看吧 [delphi] view plaincopy在CODE上查看代码片派生到我的代码片 {***************************************************************************} { } { 功能：FMX.ZYJ 浏览器组件 } { 名称：FMX.ZYJ.Win.WebBrowser.pas } { 版本：1.1 } { 环境：Win8.1 } { 工具：Delphi XE3 AppMethod DelphiXE6 } { 日期：2014/3/28 19:35:56 } { 作者：ying32 } { QQ ：396506155 } { MSN ：ying_32@ } { E-mail：yuanfen3287@ } { Website：http://www.ying32.tk } { 版权所有 (C) 2014-2014 ying32 All Rights Reserved } { } {---------------------------------------------------------------------------} { } { 备注： Windows浏览器组件 } { } { } { } {***************************************************************************} [delphi] view plaincopy在CODE上查看代码片派生到我的代码片 unit FMX.ZYJ.Win.WebBrowser; interface uses Winapi.Windows, WebBrowserUnit, System.SysUtils, System.Classes, System.Types, System.UITypes, FMX.Types, FMX.Controls, FMX.Forms; [delphi] view plaincopy在CODE上查看代码片派生到我的代码片 type TWebDocumentComplete = procedure(const pDisp: IDispatch; var URL: OleVariant) of object; TWebStatusTextChange = procedure(const Text: WideString) of object; TWebTitleChange = procedure(const Text: WideString) of object; TWebVisible = procedure(Visible: WordBool) of object; TWebQuit = procedure of object; TWebPropertyChange = procedure(const szProperty: WideString) of object; TWebP