diff --git a/lcl/interfaces/win32/win32proc.pp b/lcl/interfaces/win32/win32proc.pp index 1cb1abd335..3dadcd62f9 100644 --- a/lcl/interfaces/win32/win32proc.pp +++ b/lcl/interfaces/win32/win32proc.pp @@ -843,8 +843,7 @@ begin if Assigned(lWindowInfo) then begin lWinControl := lWindowInfo^.WinControl; - if Assigned(lWinControl) and - (lWinControl is TCustomForm) and + if (lWinControl is TCustomForm) and (TCustomForm(lWinControl).FormStyle = fsSystemStayOnTop) then Exit; end;