TWebUIWindow

type TWebUIWindow = class(TInterfacedObject,IWebUIWindow)

protected

  FID: TWebUIWindowID;

  FOnWebUIEvent: TOnWebUIEvent;

  FBindIDList: TList;

  FCritSect: TCriticalSection;

  FAllowWebView: Boolean;

  function GetID;

  function GetInitialized;

  function GetIsShown;

  function GetUrl;

  function GetParentProcessID;

  function GetChildProcessID;

  function GetOnWebUIEvent;

  function GetBestBrowser;

  function GetAllowWebView;

  procedure SetOnWebUIEvent();

  procedure SetAllowWebView();

  function Lock;

  procedure UnLock;

  procedure AddBindID();

  procedure AddWindowID;

  procedure RemoveWindowID;

  procedure doOnWebUIEvent();

public

  constructor Create();

  procedure AfterConstruction; override;

  procedure BeforeDestruction; override;

  destructor Destroy; override;

  procedure DestroyWindow;

  function Bind();

  function BindAllEvents();

  function Show();

  function ShowBrowser();

  function ShowWV();

  procedure SetKiosk();

  procedure Close;

  function SetRootFolder();

  procedure SetFileHandler();

  procedure SetFileHandlerWindow();

  procedure SetResponseFileHandler();

  procedure SetIcon();

  procedure SendRaw();

  procedure SetHide();

  procedure SetSize();

  procedure SetMinimumSize();

  procedure SetPosition();

  procedure SetProfile();

  procedure SetProxy();

  procedure SetPublic();

  procedure Navigate();

  procedure DeleteProfile;

  function GetPort;

  function SetPort();

  procedure SetPort2();

  procedure Run();

  function Script();

  procedure SetRuntime();

  function HasBindID();

  procedure SetEventBlocking();

  function StartServer();

  procedure SetHighContrast();

  procedure SetContext();

  procedure SetCustomParameters();

  class function GetNewWindowID;

  property ID: TWebUIWindowID; [r]

  property Initialized: Boolean; [r]

  property IsShown: Boolean; [r]

  property Url: string; [r]

  property ParentProcessID: NativeUInt; [r]

  property ChildProcessID: NativeUInt; [r]

  property BestBrowser: TWebUIBrowser; [r]

  property AllowWebView: Boolean; [rw]

  property Port: NativeUInt; [rw]

  property OnWebUIEvent: TOnWebUIEvent; [rw]

end;

TWebUIWindow

TObject,IWebUIWindow