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

Qt: do not send focus message if parent form is not visible in LCL. issue #31041

Browse Source 
git-svn-id: trunk@53490 -
This commit is contained in:
zeljko 2016-11-30 21:56:53 +00:00
parent b7fd88403c
commit 7fecd361fc
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt/qtobject.inc
View File

@ -1184,7 +1184,11 @@ begin
end;
end else
NewWidget.DeliverMessage(Msg);
begin
if Assigned(NewWidget.LCLObject) and (GetParentForm(NewWidget.LCLObject) <> nil) and
GetParentForm(NewWidget.LCLObject).Visible then
NewWidget.DeliverMessage(Msg);
end;
end;
end;