From b52cbb021dd920251759b24a36e1530ef64164b6 Mon Sep 17 00:00:00 2001 From: juha Date: Tue, 8 Dec 2020 19:34:36 +0000 Subject: [PATCH] LCL: Simplify code for setting FLastActiveControl. git-svn-id: trunk@64181 - --- lcl/include/customform.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc index 72b1408130..1fb90d4248 100644 --- a/lcl/include/customform.inc +++ b/lcl/include/customform.inc @@ -1931,7 +1931,7 @@ begin Debugln(['TCustomForm.SetActiveControl ',DbgSName(Self),' FActive=',DbgS(FActive),' OldActiveControl=',DbgSName(FActiveControl),' NewActiveControl=',DbgSName(AWinControl)]); {$ENDIF} FActiveControl := AWinControl; - if (FActiveControl<>nil) and (FActiveControl<>Self) and not (FActiveControl is TCustomForm) then + if (FActiveControl<>nil) and not (FActiveControl is TCustomForm) then FLastActiveControl := FActiveControl; if Assigned(FActiveControl) then FreeNotification(FActiveControl); if ([csLoading, csDestroying] * ComponentState = []) then