Define class grdTextBox as TextBox cDblClick="" Function Init Lparam cDblClickRoutine This.cDblClick=cDblClickRoutine EndFunc Function DblClick If Empty(This.cDblClick) Return Endif Do (This.cDblClick) EndFunc EndDefineThis can be done with the visual class designer as well. If you are dynamically instantiating the grid, you can use a syntax like:
with oColumn .RemoveObject("Text1") && Remove default .Addobject("Text1","grdTextBox", "MyDblCLickRoutineName") EndwithWhen the user double clicks the textbox, your routine called MyDblCLickRoutineName will be called. Note that MyDblCLickRoutineName must be either a .PRG file or in a file denoted via SET PROCEDURE TO. You can pass parameters in the line of code that says Do (This.cDblClick) if you want to.