pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-09-16 08:26:23 +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; FOnClose : TNotifyEvent;
FOnBeforeClose : TNotifyEvent; FOnBeforeClose : TNotifyEvent;
FOnAfterCreated : TNotifyEvent; FOnAfterCreated : TNotifyEvent;
FUseSetFocus : boolean;
function GetBrowserInitialized : boolean; function GetBrowserInitialized : boolean;
function GetChildWindowHandle : THandle; override; function GetChildWindowHandle : THandle; override;
@@ -95,6 +96,7 @@ type
property Initialized : boolean read GetBrowserInitialized; property Initialized : boolean read GetBrowserInitialized;
published published
property UseSetFocus : boolean read FUseSetFocus write FUseSetFocus default True;
property OnClose : TNotifyEvent read FOnClose write FOnClose; property OnClose : TNotifyEvent read FOnClose write FOnClose;
property OnBeforeClose : TNotifyEvent read FOnBeforeClose write FOnBeforeClose; property OnBeforeClose : TNotifyEvent read FOnBeforeClose write FOnBeforeClose;
property OnAfterCreated : TNotifyEvent read FOnAfterCreated write FOnAfterCreated; property OnAfterCreated : TNotifyEvent read FOnAfterCreated write FOnAfterCreated;
@@ -121,6 +123,7 @@ begin
FOnClose := nil; FOnClose := nil;
FOnBeforeClose := nil; FOnBeforeClose := nil;
FOnAfterCreated := nil; FOnAfterCreated := nil;
FUseSetFocus := True;
end; end;
procedure TChromiumWindow.AfterConstruction; procedure TChromiumWindow.AfterConstruction;
@@ -152,7 +155,7 @@ begin
case aMessage.Msg of case aMessage.Msg of
WM_SETFOCUS: WM_SETFOCUS:
begin begin
if (FChromium <> nil) then if FUseSetFocus and (FChromium <> nil) then
FChromium.SetFocus(True) FChromium.SetFocus(True)
else else
begin begin