>Is there a way to make all the fields on a screen readonly thru loop construct rather naming each field and then setting its readonly properties (for example: x.readonly = .t., y.readonly = .t. etc...)
>

for each oControl in THISFORM.Controls
   if pemstatus(oControl,"ReadOnly",5) then
      oControl.ReadOnly = .T.
   endif
endfor

This is very easy for me because in my container classes (e.g. forms, option groups, containers), I have code in a ReadOnly_Assign method that if the ReadOnly property of the container is being set to .T., then it propagates that to its members. Otherwise, you have to check for the existence of the Controls or Buttons property and go through these.

*Note*
For those classes that are are containers and don't have a ReadOnly property, I added a custom property with that name.