Hi all

I want create a class ( ex. TextBox ) with support of readOnly mode.

#DEFINE ErrCode_ReadOnly NNNN

objectClass.readOnly = .T.

on

objectClass.ProgrammaticChange Event:
IF m.this.readOnly
ERROR ErrCode_ReadOnly &&& ,message ...
nodefault
return .F.
ENDIF

on program code

object.Value = 'something'

All good ? No!

ProgrammaticChange ignore nodefault and RETURN .F !

ProgrammaticChange true name is ProgrammaticChangeAfter ?

I am mistaking? Where ?

Fabio