界面库

优化combox细节
2023-03-24 17:43:04 +08:00
parent 03d73ebec9
commit d2794ef22e
2 changed files with 8 additions and 1 deletions
@@ -4269,6 +4269,13 @@ type TcustomComboBox=class(TCustomComboBoxbase)
            ShowDropDown(false);
            CallMessgeFunction(OnSelchanged,self(true),e);
        end
+        FEdit.onmousedown := function(o,e)begin
+            if Freadonly then 
+            begin
+                e.skip := true;
+                ShowDropDown(true);
+            end 
+        end 
        FEdit.Readonly := Freadonly;
        FListBox.parent := self;
        FEdit.parent := self;