paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 07:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: fix AppBringToFront when modal system dialog is visible

Browse Source 
git-svn-id: trunk@51800 -
This commit is contained in:
ondrej 2016-03-02 08:00:06 +00:00
parent 9c843a9ea8
commit 2fc6fbf6fc
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/win32/win32object.inc
View File

@ -243,13 +243,20 @@ procedure TWin32WidgetSet.AppBringToFront;
var
Window: HWND;
begin
if Assigned(Screen) and Assigned(Screen.ActiveCustomForm) and Screen.ActiveCustomForm.HandleAllocated then
Window := Screen.ActiveCustomForm.Handle
if Application.MainFormOnTaskBar and (Application.MainFormHandle<>0) then
Window := GetLastActivePopup(Application.MainFormHandle)
else
if Assigned(Application) and Application.MainFormOnTaskBar then
Window := Application.MainFormHandle
else
Window := FAppHandle;
Window := GetLastActivePopup(AppHandle);
if not((Window <> 0) and IsWindowVisible(Window) and IsWindowEnabled(Window)) then
begin
if Assigned(Screen) and Assigned(Screen.ActiveCustomForm) and Screen.ActiveCustomForm.HandleAllocated then
Window := Screen.ActiveCustomForm.Handle
else
if Assigned(Application) and Application.MainFormOnTaskBar then
Window := Application.MainFormHandle
else
Window := FAppHandle;
end;
if (Window <> 0) and IsWindowVisible(Window) and IsWindowEnabled(Window) then
Windows.SetForegroundWindow(Window);
end;