制作一个浏览器

前言：使用 DCEF3 组件，现在有DCEF4 ，不过这里不介绍

首先在网上下载 DCEF3的压缩包（我在 github上下载的），解压，下图：

然后就可以通过delphi编译器打开“DCEF3.dproj”，生成一个编译器可以加载的 bpl

编译，加载

这里加载有两个方法：

1）右键-install

2）手动添加

然后就可以愉快的使用这个组件了

代码也是相当的简单：

unit ChenClassUnit;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cefvcl, cefreg, Vcl.StdCtrls,
Vcl.ExtCtrls;

type
TForm1 = class(TForm)
pnlBrowerAddress: TPanel;
edtAddress: TEdit;
btnAddress: TButton;
chrmBrower: TChromium3;
procedure btnAddressClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnAddressClick(Sender: TObject);
begin
chrmBrower.Load(edtAddress.Text);
end;

end.

最后看一下效果吧！