oForm = CREATEOBJECT([form1]) oForm.Show(1) ************************************************** *-- Form: form1 (d:\all_zapl\test.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 08/04/08 07:44:00 PM * DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT grid1 AS grid WITH ; ColumnCount = 2, ; Height = 200, ; Left = 14, ; Top = 11, ; Width = 320, ; Name = "Grid1", ; Column1.Name = "Column1", ; Column2.Name = "Column2" PROCEDURE gridclicked WAIT WINDOW [We are here] NOWAIT ENDPROC PROCEDURE Init =AFONT(laFonts) lcChars = [] FOR lnFor = 30 TO 255 lcChars = lcChars + CHR(lnFor) NEXT FOR lnFor = 1 TO ALEN(laFonts) INSERT INTO crsTest VALUES (laFonts[lnFor], lcChars) NEXT GO TOP thisform.Grid1.Column2.DynamicFontName = [IIF(.t.,ALLTRIM(FontNames),"")] FOR EACH oCol IN thisform.Grid1.Columns FOR EACH oControl IN oCol.Controls IF PEMSTATUS( oControl, [dblClick], 5 ) BINDEVENT( oControl, 'dblClick', thisform, 'GridClicked') ENDIF NEXT NEXT ENDPROC PROCEDURE Load CREATE CURSOR crsTest (FontNames C(50), AllChars C(200)) ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************BTW what is the value of AllowCellSelection property of your grid?