From d4693029bc9b8fd5caa74930bbc8ef76a846e629 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 31 Jul 2023 13:52:38 +0200
Subject: [PATCH] lcl: fixed compile

---
 lcl/include/application.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/application.inc b/lcl/include/application.inc
index 25ea0df767..10abe008b0 100644
--- a/lcl/include/application.inc
+++ b/lcl/include/application.inc
@@ -1547,7 +1547,7 @@ begin
   if Assigned(Screen.ActiveCustomForm) then
     Result := Screen.ActiveCustomForm.Handle
   else
-    Result := feInvalidHandle;
+    Result := TLCLHandle(-1);
 end;
 
 function TApplication.GetCurrentHelpFile: string;