CEF4Delphi（DELPHI Google Chrome 瀏覽器封裝） 折騰 （2）--打開一個網頁

   打開網頁的，折騰了好久，試運行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;