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

git-svn-id: trunk@53490 -
This commit is contained in:
zeljko 2016-11-30 21:56:53 +00:00
parent b7fd88403c
commit 7fecd361fc

View File

@ -1184,9 +1184,13 @@ begin
end; end;
end else end else
begin
if Assigned(NewWidget.LCLObject) and (GetParentForm(NewWidget.LCLObject) <> nil) and
GetParentForm(NewWidget.LCLObject).Visible then
NewWidget.DeliverMessage(Msg); NewWidget.DeliverMessage(Msg);
end; end;
end; end;
end;
procedure TQtWidgetSet.OnWakeMainThread(Sender: TObject); procedure TQtWidgetSet.OnWakeMainThread(Sender: TObject);
var var