Function DetectIsOpen(Cb: TCombobox): Boolean; Begin Result := SendMessage(ComboBox1.Handle,CB_GETDROPPEDSTATE,0,0)=1; End;