CEF4Delphi（DELPHI Google Chrome 浏览器封装） 折腾 （2）--打开一个网页

合集 - DELPHI(1)

1.CEF4Delphi（DELPHI Google Chrome 浏览器封装） 折腾 （2）--打开一个网页2023-08-25

收起

   打开网页的，折腾了好久，试运行DEMO，就行，把DELPHI的代码抄过来，就是不行，然后把自己弄的 控件名称搞的与DEMO一样，属性全对一样了，还是不行，郁闷很久后，才发现工程文件里面还要加代码。

 

我的工程名为：OpenChrome

 

选中工程文件后按CTRL+V，然后做以下修改：下面红色的代码是CEF4中需要增加的。

 

program OpenChrome;

uses
  Vcl.Forms,
  uCEFApplication,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
 GlobalCEFApp := TCefApplication.Create;
  if GlobalCEFApp.StartMainProcess then
    begin
    Application.Initialize;
    Application.MainFormOnTaskbar := True;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
    end;
end.

在界面上丢个 ChromiumWindow 控件，名称为：ChromiumWindow1

然后两个代码，就完成加载一个网页了

 

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChromiumWindow1.LoadURL('https://www.cnblogs.com/zhqian/');
end;

procedure TForm1.FormShow(Sender: TObject);
begin
ChromiumWindow1.CreateBrowser;
end;