TChromium и TChromeTabs

procedure TForm1.ChromeTabs1ButtonAddClick(Sender: TObject;
  var Handled: Boolean);
  var TabChr:TChromium;
      TabTab:TChromeTabs;
      TabEdit:TEdit;
begin
TabChr.Create(Self);
TabChr.Parent:=Self;
TabChr.Height:=366;
TabChr.Width:=1002;
TabChr.Top:=72;
TabEdit.Create(Self);
TabEdit.Parent:=Self;
TabEdit.Width:=1001;
TabEdit.Top:=48;
TabEdit.Height:=21;
end;

procedure TForm1.ChromeTabs1ButtonAddClick(Sender: TObject;
  var Handled: Boolean);
 var
  Chrome:TChromium;
  ChromeTb:TChromeTabs;
  ChromeEdit:TEdit;
begin
Chrome:=TChromium.Create(Self);
Chrome.Name:='Chromium2';
Chrome.Parent:=Self;
Chrome.Load('bing.com');
Chrome.Align:=AlClient;
Chrome.Height:=100;
Chrome.Width:=100;
Chrome.Top:=100;
Chrome.Left:=100;
end;

procedure TForm1.ChromeTabs1ButtonAddClick(Sender: TObject;
  var Handled: Bo11olean);
  var
  Chrome:TChromium;
  ChromeTb:TChromeTabs;
  ChromeEdit:TEdit;
begin
Chrome:=TChromium.Create(Form1);
Chrome.Parent:=Form1;
Chrome.Load('bing.com');
Chrome.Align:=AlClient;
Chrome.Height:=100;
Chrome.Width:=100;
Chrome.Top:=100;
Chrome.Left:=100;
Chrome.Show;
end;

unit MainWindow;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, cefvcl, ChromeTabs,ceflib, sSkinManager, sSkinProvider,
  sEdit;
 
type
  TForm1 = class(TForm)
    Chromium1: TChromium;
    ChromeTabs1: TChromeTabs;
    GroupBox1: TGroupBox;
    sEdit1: TsEdit;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ChromeTabs1ButtonAddClick(Sender: TObject;
      var Handled: Boolean);
    procedure Chromium1AddressChange(Sender: TObject;
      const browser: ICefBrowser; const frame: ICefFrame;
      const url: ustring; out Result: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure sEdit1Click(Sender: TObject);
    procedure sEdit1DblClick(Sender: TObject);
    procedure Chromium1TitleChange(Sender: TObject;
      const browser: ICefBrowser; const title: ustring;
      out Result: Boolean);
    procedure ChromeTabs1ActiveTabChanged(Sender: TObject;
      ATab: TChromeTabs);
    procedure FormResize(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
Const DefaultCookiesDir = 'Cookies/';
var
  Form1: TForm1;
 
implementation
 
 
{$R *.dfm}
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if ord(key) = VK_RETURN Then
chromium1.Load(sedit1.text);
end;
 
 
procedure TForm1.ChromeTabs1ButtonAddClick(Sender: TObject;
  var Handled: Boolean);
  var
  Chrome:TChromium;
  ChromeTb:TChromeTabs;
  ChromeEdit:TEdit;
begin
Chrome:=TChromium.Create(Form1);
Chrome.Parent:=Form1;
Chrome.Load('bing.com');
Chrome.Align:=AlClient;
Chrome.Height:=100;
Chrome.Width:=100;
Chrome.Top:=100;
Chrome.Left:=100;
Chrome.Show;
end;
 
 
procedure TForm1.Chromium1AddressChange(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame; const url: ustring;
  out Result: Boolean);
begin
sedit1.text:=url;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
CefUserAgent:='Crystal.Broswer';
ChromeTabs1.Update;
Chromium1.Update;
end;
 
procedure TForm1.sEdit1Click(Sender: TObject);
var AllText:Integer;
begin
alltext:=Length(sedit1.text);
sEdit1.SelStart:=0;
sEdit1.SelLength:=alltext;
sEdit1.SetFocus;
end;
 
procedure TForm1.sEdit1DblClick(Sender: TObject);
begin
sedit1.SelLength:=0;
end;
 
procedure TForm1.Chromium1TitleChange(Sender: TObject;
  const browser: ICefBrowser; const title: ustring; out Result: Boolean);
  var indextab:integer;
begin
indextab:=ChromeTabs1.ActiveTabIndex;
ChromeTabs1.Tabs.ActiveTab.Caption:=title;
end;
 
procedure TForm1.ChromeTabs1ActiveTabChanged(Sender: TObject;
  ATab: TChromeTabs);
  var Chrome:TChromium;
begin
if ChromeTabs1.ActiveTabIndex = 1 then chrome.Hide;
if ChromeTabs1.ActiveTabIndex = 2 then chromium1.Hide;
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
ChromeTabs1.Update;
Chromium1.Update;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
GroupBox1.SetFocus;
ChromeTabs1.SetFocus;
Chromium1.SetFocus;
sEdit1.SetFocus;
 
end;
 
end.