>Public oManipulador As Manipulador >* - Instancia o objeto manipulador >oManipulador = Createobject("Manipulador") > > >oGrid = SBO.pageframe1.page1.cont1.grid1 >wait window oGrid.column13.Text1.value timeout 0.80 &&Show me the correct value : NCREC-CL.CMP-3 > Bindevent(oGrid.column13.Header1,"DblClick", oManipulador, "OnDblClick") > >Define Class Manipulador As Custom > Procedure OnDblClick > Messagebox("you have dblclick on the column 13") > Return > Endproc >Enddefine >>
>Public oManipulador As Manipulador >* - Instancia o objeto manipulador >oManipulador = Createobject("Manipulador") > > >oGrid = SBO.pageframe1.page1.cont1.grid1 >wait window oGrid.column13.Text1.value timeout 0.80 &&Show me the correct value : NCREC-CL.CMP-3 > Bindevent(oGrid.column13.Text1,"DblClick", oManipulador, "OnDblClick") > >Define Class Manipulador As Custom > Procedure OnDblClick > Messagebox("you have dblclick on the column 13") > Return > Endproc >Enddefine >>
>oGrid = sbo.pageframe1.page1.cont1.grid1 > > >?oGrid.Column13.ControlSource = "BI.LOBS3" && Return .T. >?oGrid.column13.name &&Return column13 >?oGrid.column13.text1 &&Return (Object) >?oGrid.column13.text1.value && Return : NCREC-CL.CMP-3 >?oGrid.column13.Header1.Caption &&Return: QUA-NC[F0] >?oGrid.column13.Header1 &&Return (Object) >>
Public oManipulador As Manipulador * - Instancia o objeto manipulador oManipulador = Createobject("Manipulador") oGrid = SBO.pageframe1.page1.cont1.grid1 wait window oGrid.column13.Text1.value timeout 0.80 &&Show me the correct value : NCREC-CL.CMP-3 * Bindevent(oGrid.column13.Text1,"DblClick", oManipulador, "OnDblClick") *added code ? Bindevent(oGrid.column13.Text1,"DblClick", oManipulador, "OnDblClick") public laSource(1,5), laTarget(1,5) ?AEVENTS(laSource,oGrid.column13.Text1) && Return=0 no event bound. For more, see help AEVENTS() oEventObject ?AEVENTS(laTarget,oManipulador) && see line above *raise event raiseevent(oGrid.column13.Text1,"DblClick") *call methods oGrid.column13.Text1.DblClick *call delegate as code oManipulador.OnDblClick */added code Define Class Manipulador As Custom Procedure OnDblClick *added code lnEvents = AEVENTS(laEve,0) && Return=0 not called as an event bound. For more, see help AEVENTS() 0 ?'event count= ',lnevents for lnevent = 1 to lnevents ?laEve(lnevent,1).name,' ',laEve(lnevent,2),' ',laEve(lnevent,3) next */added code Messagebox("you have dblclick on the column 13") Return Endproc EnddefineFor your question about AEVENTS.