I am adding a checkbox programmatically to a grid and I am having a problem trying to activate the click event of the checkbox.
The following code activates the click event of the text box within the column but not the checkbox itself.

Please help !


DEFINE CLASS myGridChkBox AS CONTAINER
WIDTH = 14
HEIGHT = 17
BACKSTYLE = 0
BORDERWIDTH = 0
NAME = "grdcheckbox"

ADD OBJECT check1 AS CHECKBOX WITH ;
TOP = 0, ;
LEFT = 0, ;
HEIGHT = 17, ;
WIDTH = 13, ;
BACKSTYLE = 0, ;
CAPTION = "", ;
NAME = "Check1"

PROCEDURE INIT
WITH THIS
.check1.CONTROLSOURCE = .PARENT.CONTROLSOURCE

.RESIZE()
ENDWITH
ENDPROC

PROCEDURE RESIZE
WITH THIS.check1
.LEFT = (THIS.PARENT.WIDTH - .WIDTH) / 2
ENDWITH
ENDPROC

PROCEDURE CLICK
=messagebox("Click",16,"")
ENDPROC



ENDDEFINE