>I have a VFP 8 multiple page pageframe that contains about 100 text boxes. I want to stick in a line of code, "m_fieldmodified=.T.", in the interactivechange event of each text box. Many of the text boxes already have text in the interactive change event. Is there a quick way of doing this?
>
>Thanks,
>

Vim,
Another approach would be to use the BindEvent() function in VFP 8.

define class cusEvtHandler as Custom

procedure ICHandler
m_fieldmodified = .T.
endproc
enddefine

In the form's Init, add the following:

local lnctrlcnt
THIS.AddObject('oevthandler','cusEvtHandler')
for lnctrlcnt = 1 to THIS.ControlCount
   if upper(THIS.Controls[lnctrlcnt].BaseClass) = 'TEXTBOX' then
      bindevent(THIS.Controls[lnctrlcnt],'InterActiveChange', THIS.oevthandler,'ICHandler')
   endif
endfor

Depending on the scope of m_fieldmodified, this should work. When the form is released, all the binding will go away automatically.

HTH.