Unbindevents Method

Resets event binding for the specified event.

ob.unbindevents(oSource, cEvent, oHandler, cProc [, nFlags])

Arguments

Argument	Type	Description
cEvent	C	Source event name
cProc	C	Handler delegate procedure name
nFlags	N	Flags (ignored)
oHandler	O	Handler object
oSource	O	Source object

Example

//
// Lianja custom section for page "page1" section "section1"
//
namespace custom1
public eventhandlerob, sourceclassbutton
define class page1_section1 as section
enddefine
 
define class eventhandlerclass as CommandButton
	proc delegateproc
		messagebox("Hello from the event handler",0,"Event Handler")
		// Reset event binding for sourceclassbutton.click
		sourceclassbutton.unbindevents(sourceclassbutton,"click",;
                eventhandlerob,"delegateproc")
	endproc
enddefine
 
define class sourceclass as CommandButton
enddefine
 
proc page1_section1 
	page1_section1 = createobject("page1_section1")
 
	page1_section1.addobject("eventhandlerob","eventhandlerclass")
	eventhandlerob.visible = False
 
	page1_section1.addobject("sourceclassbutton","sourceclass")
	sourceclassbutton.caption = "Delegate Click Event"
	sourceclassbutton.bindevents(sourceclassbutton,"click",eventhandlerob,"delegateproc")
return page1_section1