>Hi All,
>i have a grid class and "GrdAddnew textbox class KeyPressEvent Code" removing standart textbox and adding own at runtime. But after this for eg. i wantto use this code at the new textbox keypressevent
>
>

>  if Nkeycode=134
>do form forms\custlist
>  endif
>

>
>I've tried but there is no action. why ? what should i do ?
>
>TIA
>
>my class codes show below...
>
>

>* Grid InitEvent Code
>FOR EACH oColumn IN this.Columns
>   WITH oColumn
>      .RemoveObject('Text1')
>      .NewObject('text1','GrdAddNew','sdbgrid.vcx')
>     .CurrentControl='Text1'
>     .text1.visible=.t.
>     ENDWITH
>ENDFOR
>

>
>

>* GrdAddnew textbox class KeyPressEvent Code
>LOCAL lcAlias
>		lcAlias = THIS.PARENT.PARENT.RECORDSOURCE
>		DO CASE
>			CASE nKeyCode = 24 && '{DNARROW}'
>				* 3 Field in an appended record has not been
>				* edited or deletion status has not changed for
>				* the appended record.
>				IF GETFLDSTATE(-1) = REPLICATE("3",FCOUNT(lcAlias)+1)
>					NODEFAULT
>				ENDIF
>			CASE nKeyCode = 5 && '{UPARROW}'
>				IF GETFLDSTATE(-1) = REPLICATE("3",FCOUNT(lcAlias)+1)
>					TABLEREVERT(.F., lcAlias)
>					THIS.PARENT.PARENT.REFRESH
>				ENDIF
>		ENDCASE
>
>

Are you sure :
There is no 'ON key label f12 ...' in effect ?
You wrote the code for your subclassed textbox ?
You're using the subclassed textbox in grid ?

I suspect you write the code in text1.keypress at designtime and later it's replaced with other class textbox.
Cetin