Browse Source

Update bccombobox.pas

Leandro Diaz 1 year ago
parent
commit
ffd9e16638
1 changed files with 3 additions and 3 deletions
  1. 3 3
      bccombobox.pas

+ 3 - 3
bccombobox.pas

@@ -168,9 +168,9 @@ begin
 
   CreateForm;
 
-  //if FForm.Visible then
-  //  FForm.Visible := false
-  //else
+  if FForm.Visible then
+    FForm.Close
+  else
   if Now > FFormHideDate+MinDelayReopen then
   begin
     p := ControlToScreen(Point(FButton.Left, FButton.Top + FButton.Height));