>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

Fabio,
AFAIK you can't disable change of value in programmaticchange. It occurs when the change occurs. Maybe what you're looking for is value_assign.
Cetin