pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00
Code Issues Actions Releases Activity

Create independent browsers in FMXTabbedBrowser

Browse Source
This commit is contained in:
Salvador Díaz Fau
2024-08-09 15:37:48 +02:00
parent dcc10166bd
commit 506f56e583
5 changed files with 33 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
demos/Delphi_FMX_Windows/FMXTabbedBrowser/uBrowserTab.pas
View File

@ -24,7 +24,7 @@ type
constructor Create(AOwner: TComponent; aTabID : cardinal; const aCaption : string); reintroduce;
procedure NotifyMoveOrResizeStarted;
procedure DestroyWindowParent;
procedure CreateBrowser(const aHomepage : string);
procedure CreateBrowser(const aHomepage : string; aIndependent : boolean);
procedure CloseBrowser;
procedure ResizeBrowser;
procedure ShowBrowser;
@ -86,7 +86,7 @@ begin
FBrowserFrame.DestroyWindowParent;
end;
procedure TBrowserTab.CreateBrowser(const aHomepage : string);
procedure TBrowserTab.CreateBrowser(const aHomepage : string; aIndependent : boolean);
begin
FBrowserFrame := TBrowserFrame.Create(self);
FBrowserFrame.Parent := self;
@ -98,7 +98,7 @@ begin
FBrowserFrame.OnBrowserTitleChange := BrowserFrame_OnBrowserTitleChange;
FBrowserFrame.OnBrowserClosing := BrowserFrame_OnBrowserClosing;
FBrowserFrame.CreateBrowser;
FBrowserFrame.CreateBrowser(aIndependent);
end;
procedure TBrowserTab.CloseBrowser;