pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-10-30 23:07:52 +02:00
Code Issues Actions 1 Releases Activity

Added the TChromiumWindow.UseSetFocus property

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-12-18 17:07:50 +01:00
parent c8e354b8e5
commit ea11d6cd46
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/uCEFChromiumWindow.pas
View File

@@ -69,6 +69,7 @@ type
FOnClose : TNotifyEvent;
FOnBeforeClose : TNotifyEvent;
FOnAfterCreated : TNotifyEvent;
FUseSetFocus : boolean;
function GetBrowserInitialized : boolean;
function GetChildWindowHandle : THandle; override;
@@ -95,6 +96,7 @@ type
property Initialized : boolean read GetBrowserInitialized;
published
property UseSetFocus : boolean read FUseSetFocus write FUseSetFocus default True;
property OnClose : TNotifyEvent read FOnClose write FOnClose;
property OnBeforeClose : TNotifyEvent read FOnBeforeClose write FOnBeforeClose;
property OnAfterCreated : TNotifyEvent read FOnAfterCreated write FOnAfterCreated;
@@ -121,6 +123,7 @@ begin
FOnClose := nil;
FOnBeforeClose := nil;
FOnAfterCreated := nil;
FUseSetFocus := True;
end;
procedure TChromiumWindow.AfterConstruction;
@@ -152,7 +155,7 @@ begin
case aMessage.Msg of
WM_SETFOCUS:
begin
if (FChromium <> nil) then
if FUseSetFocus and (FChromium <> nil) then
FChromium.SetFocus(True)
else
begin