Changeset 495 for trunk/Packages/DpiControls/Dpi.Forms.pas

Timestamp:

Dec 17, 2023, 11:54:58 PM (5 months ago)

Author:

chronos

Message:

• Fixed: Workaround for LCL bug where ShowModal makes all StayOnTop forms hidden.

File:

• trunk/Packages/DpiControls/Dpi.Forms.pas (modified) (2 diffs)

trunk/Packages/DpiControls/Dpi.Forms.pas

@@ -191 +191 @@
     procedure UpdateMainForm(AForm: TForm);
     procedure CreateForm(InstanceClass: TComponentClass; out Reference);
+    procedure RemoveStayOnTop(const ASystemTopAlso: Boolean = False);
     function MessageBox(Text, Caption: PChar; Flags: Longint = MB_OK): Integer;
     property MainForm: TForm read GetMainForm write SetMainForm;
@@ -463 +464 @@
 end;
 
+procedure TApplication.RemoveStayOnTop(const ASystemTopAlso: Boolean);
+begin
+  GetNativeApplication.RemoveStayOnTop(ASystemTopAlso);
+end;
+
 function TApplication.MessageBox(Text, Caption: PChar; Flags: Longint
   ): Integer;