From 895c80c4eabfdc29ba63fb94ecb1feb2f0ecb006 Mon Sep 17 00:00:00 2001
From: Maxim Ganetsky <maxim@lazarus-ide.org>
Date: Sat, 26 Aug 2023 02:50:48 +0300
Subject: [PATCH] LCL: optimized TApplication.GetControlAtMouse (no functional
 changes), patch by Rika, issue #40465

---
 lcl/include/application.inc | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/lcl/include/application.inc b/lcl/include/application.inc
index 10abe008b0..edbbc816b8 100644
--- a/lcl/include/application.inc
+++ b/lcl/include/application.inc
@@ -569,15 +569,13 @@ begin
     Result := FLastMouseControl
   else
     Result := FindControlAtPosition(P, False);
-  
-  if Assigned(Result) and (csDesigning in Result.ComponentState) then
-    Result := nil;
-  if Assigned(Result) then
-  begin
-    FLastMouseControlValid := True;
-    FLastMousePos := p;
-    FLastMouseControl := Result;
-  end;
+
+  if not Assigned(Result) or (csDesigning in Result.ComponentState) then
+    Exit(nil);
+
+  FLastMouseControlValid := True;
+  FLastMousePos := p;
+  FLastMouseControl := Result;
 end;
 
 procedure TApplication.SetBidiMode(const AValue: TBiDiMode) ;