TChromiumWindow

type TChromiumWindow = class(TCEFLinkedWinControlBase)

protected

  FChromium: TChromium;

  FOnClose: TNotifyEvent;

  FOnBeforeClose: TNotifyEvent;

  FOnAfterCreated: TNotifyEvent;

  FUseSetFocus: Boolean;

  function GetChromium; override;

  function GetUseSetFocus; override;

  function GetBrowserInitialized;

  procedure WebBrowser_OnClose();

  procedure WebBrowser_OnBeforeClose();

  procedure WebBrowser_OnAfterCreated();

  procedure WebBrowser_OnGotFocus();

  procedure BrowserSetFocusMsg();

  procedure BrowserAfterCreated();

  procedure BrowserOnCLose();

  procedure DoEnter; override;

  procedure DoExit; override;

public

  constructor Create(); override;

  procedure AfterConstruction; override;

  function CreateBrowser;

  procedure CloseBrowser();

  procedure LoadURL();

  procedure NotifyMoveOrResizeStarted;

  property ChromiumBrowser: TChromium; [r]

  property Initialized: Boolean; [r]

published

  property UseSetFocus: Boolean; [rw]

  property OnClose: TNotifyEvent; [rw]

  property OnBeforeClose: TNotifyEvent; [rw]

  property OnAfterCreated: TNotifyEvent; [rw]

end;

TChromiumWindow

TCEFLinkedWinControlBase

TCEFWinControl

TObject