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

Qt: do not send LM_ACTIVATE if form has parent. fixes #14899

Browse Source 
git-svn-id: trunk@24121 -
This commit is contained in:
zeljko 2010-03-20 20:58:28 +00:00
parent b4cdc88cfb
commit 9efcf935eb
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/qt/qtwidgets.pas
View File

@ -1961,7 +1961,10 @@ begin
if LCLObject is TCustomForm then
begin
FIsActivated := TCustomForm(LCLObject).Active;
if vActivate = FIsActivated then
{do not send activate if form is already activated,
also do not send activate if TCustomForm.Parent is assigned
since it's form embedded into another control or form}
if (vActivate = FIsActivated) or (LCLObject.Parent <> nil) then
exit;
end;