mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 09:59:20 +02:00
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:
parent
b7fd88403c
commit
7fecd361fc
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user