From 309603fa935e0643ae66339ec2748c00d010d03b Mon Sep 17 00:00:00 2001
From: rich2014 <rich2014.git@outlook.com>
Date: Sat, 13 Jan 2024 21:25:23 +0800
Subject: [PATCH] Cocoa: Fix #40680, the issue in TDbLookupCombobox with
 csDropDownList

---
 lcl/interfaces/cocoa/cocoawsstdctrls.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/cocoa/cocoawsstdctrls.pas b/lcl/interfaces/cocoa/cocoawsstdctrls.pas
index 8c720204d5..6115790f11 100644
--- a/lcl/interfaces/cocoa/cocoawsstdctrls.pas
+++ b/lcl/interfaces/cocoa/cocoawsstdctrls.pas
@@ -27,7 +27,7 @@ uses
   // Libs
   MacOSAll, CocoaAll, Classes, sysutils,
   // LCL
-  Controls, StdCtrls, Graphics, LCLType, LMessages, LCLProc, LCLMessageGlue, Forms,
+  Controls, StdCtrls, ComboEx, Graphics, LCLType, LMessages, LCLProc, LCLMessageGlue, Forms,
   // LazUtils
   LazUTF8, TextStrings,
   // Widgetset
@@ -1929,7 +1929,7 @@ begin
   begin
     rocmb := NSView(TCocoaReadOnlyComboBox.alloc).lclInitWithCreateParams(AParams);
     if not Assigned(rocmb) then Exit;
-    rocmb.isComboBoxEx:= not (AWinControl is TComboBox);
+    rocmb.isComboBoxEx:= AWinControl is TCustomComboBoxEx;
     rocmb.list:=TCocoaReadOnlyComboBoxList.Create(rocmb);
     rocmb.setTarget(rocmb);
     rocmb.setAction(objcselector('comboboxAction:'));