Combobox change events

[DonDrew]

I'm having a problem controlling the behavior of a combobox change event response.

Every time I update the array of list items, oClaim_Num:SetItems( aClaims ), the change event response is triggered. Is there any way I can restrict the change response to user input only?

Don

[anserkk]

Code: Select all  Expand view

bChange:=oDbCombo:bChange
oDbCombo:bChange:=NIL
oDbCombo:SetItems(aMyNewArray)
oDbCombo:bChange:=bChange

Regards
Anser

[DonDrew]

Regretably that didn't change anything.

Thanks for your help.

Don

[James Bott]

Don,

If you do this do you hear a beep?

oCombo:bChange:=msgbeep()
oCombo:SetItems(aMyNewArray)
oCombo:bChange:=nil

James

[DonDrew]

Yes.

[Enrico Maria Giordano]

oCombo:bChange:=msgbeep()

It should be

Code: Select all  Expand view

oCombo:bChange:={ || msgbeep() }

EMG

[James Bott]

Yes, of course.

Thanks, Enrico.

[Daniel Garcia-Gil]

I'm having a problem controlling the behavior of a combobox change event response.

Every time I update the array of list items, oClaim_Num:SetItems( aClaims ), the change event response is triggered. Is there any way I can restrict the change response to user input only?

Don

Hello... you can try this change in the class

Code: Select all  Expand view

   METHOD Reset( lChanged ) INLINE Eval( ::bSetGet,;                                                    
                         If( ValType( Eval( ::bSetGet ) ) == "N", 0, "" ) ),;                            
                         ::nAt := 0, ::SendMsg( CB_RESETCONTENT ),;                                      
                         if( ( lChanged != NIL .and. lChanged ) .or. ( lChanged == NIL ), ::Change(), )  


   METHOD SetItems( aItems, lChanged ) INLINE ::Reset( lChanged ), ::aItems := aItems,;
                                    ::Default(),;
                                    if( ( lChanged != NIL .and. lChanged ) .or. ( lChanged == NIL ), ::Change(), )

 

use oClaim_Num:SetItems( aClaims, .F. )