O Exemplo que eu achei na Minigui Ex usa a propriedade READONLY
DEFINE BROWSE Browse_1
ROW 10
COL 10
WIDTH 610
HEIGHT 390 - GetBorderHeight()
HEADERS { 'Code' , 'First Name' , 'Last Name', 'Birth Date', 'Married' , 'Biography' }
WIDTHS { 150 , 150 , 150 , 150 , 150 , 150 }
WORKAREA Test
FIELDS { 'Test->Code' , 'Test->First' , 'Test->Last' , 'Test->Birth' , 'Test->Married' , 'Test->Bio' }
VALUE 1
LOCK .T.
ALLOWEDIT .T.
ALLOWAPPEND .T.
ALLOWDELETE .T.
VALID { { || MemVar.Test.Code <= 1000 } , { || ! Empty(MemVar.Test.First) } , ;
{ || ! Empty(MemVar.Test.Last) } , { || Year(MemVar.Test.Birth) >= 1950 } , , }
VALIDMESSAGES { 'Code Range: 0-1000', 'First Name Cannot Be Empty', 'Last Name Cannot Be Empty', ;
{ |uVal| MsgStop( 'Please verify your input value:' + CRLF + DtoC( uVal) ) }, , }
READONLY { .F. , .F. , .F. , .F. , .F. , .T. }
END BROWSE