pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions 1 Releases Activity

Added TCEFSentinel component

Browse Source 
- Added TCEFSentinel to MiniBrowser, TabbedBrowser, ToolBoxBrowser and SimpleBrowser2.
This commit is contained in:
Salvador Díaz Fau
2019-10-09 12:24:47 +02:00
parent 213162cef5
commit 096b2c9a4b
45 changed files with 852 additions and 279 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
demos/Delphi_VCL/TabbedBrowser/uMainForm.pas
View File

@@ -49,7 +49,8 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, ComCtrls, Buttons, ExtCtrls, StdCtrls,
{$ENDIF}
uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFApplication, uCEFTypes, uCEFConstants;
uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFApplication, uCEFTypes, uCEFConstants,
uCEFSentinel;
const
CEFBROWSER_DESTROYWNDPARENT = WM_APP + $100;
@@ -72,6 +73,7 @@ type
URLCbx: TComboBox;
AddTabBtn: TButton;
RemoveTabBtn: TButton;
CEFSentinel1: TCEFSentinel;
procedure AddTabBtnClick(Sender: TObject);
procedure RemoveTabBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
@@ -83,6 +85,7 @@ type
procedure StopBtnClick(Sender: TObject);
procedure GoBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CEFSentinel1Close(Sender: TObject);
protected
FClosingTab : boolean;
@@ -349,11 +352,7 @@ begin
begin
PageControl1.Pages[aMessage.lParam].Tag := 1;
if AllTabSheetsAreTagged then
begin
FCanClose := True;
PostMessage(Handle, WM_CLOSE, 0, 0);
end;
if AllTabSheetsAreTagged then CEFSentinel1.Start;
end;
end;
@@ -575,4 +574,10 @@ begin
end;
end;
procedure TMainForm.CEFSentinel1Close(Sender: TObject);
begin
FCanClose := True;
PostMessage(Handle, WM_CLOSE, 0, 0);
end;
end.