Ignore:
Timestamp:
Dec 18, 2023, 10:47:05 PM (5 months ago)
Author:
chronos
Message:
  • Fixed: Correction of StayOnTop restore method workaround.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/DpiControls/Dpi.Forms.pas

    r496 r497  
    193193    procedure CreateForm(InstanceClass: TComponentClass; out Reference);
    194194    procedure RemoveStayOnTop(const ASystemTopAlso: Boolean = False);
     195    procedure RestoreStayOnTop(const ASystemTopAlso: Boolean = False);
    195196    function MessageBox(Text, Caption: PChar; Flags: Longint = MB_OK): Integer;
    196197    property MainForm: TForm read GetMainForm write SetMainForm;
     
    470471end;
    471472
     473procedure TApplication.RestoreStayOnTop(const ASystemTopAlso: Boolean);
     474begin
     475  GetNativeApplication.RestoreStayOnTop(ASystemTopAlso);
     476end;
     477
    472478function TApplication.MessageBox(Text, Caption: PChar; Flags: Longint
    473479  ): Integer;
Note: See TracChangeset for help on using the changeset viewer.