diff --git a/source/uCEFFMXWindowParent.pas b/source/uCEFFMXWindowParent.pas
index 54fdfc29..d9615624 100644
--- a/source/uCEFFMXWindowParent.pas
+++ b/source/uCEFFMXWindowParent.pas
@@ -32,7 +32,7 @@ type
///
/// Set a new parent for this control.
///
- procedure Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF});
+ procedure Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF}; aNewWindowStyle: NativeInt = NativeInt(WS_POPUPWINDOW or WS_CHILDWINDOW));
///
/// Updates the size of the child windows created by the browser.
///
@@ -134,7 +134,7 @@ begin
end;
end;
-procedure TFMXWindowParent.Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF});
+procedure TFMXWindowParent.Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF}; aNewWindowStyle: NativeInt);
var
TempChildHandle, TempParentHandle : HWND;
begin
@@ -149,7 +149,7 @@ begin
if (TempChildHandle <> 0) and (TempParentHandle <> 0) then
begin
- SetWindowLong(TempChildHandle, GWL_STYLE, WS_CHILDWINDOW);
+ SetWindowLong(TempChildHandle, GWL_STYLE, aNewWindowStyle);
WinApi.Windows.SetParent(TempChildHandle, TempParentHandle);
end;
end;
diff --git a/update_CEF4Delphi.json b/update_CEF4Delphi.json
index 7b5b0f5d..61a235dc 100644
--- a/update_CEF4Delphi.json
+++ b/update_CEF4Delphi.json
@@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
- "InternalVersion" : 733,
+ "InternalVersion" : 734,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "136.1.4"
}