Local lnControl && Inicia los valores de las propiedades de los controles que se utilizan && para determinar si hubo cambios en su contenido. For lnControl = 1 To This.ControlCount If Pemstatus(Thisform.Controls(lnControl), 'Started', 5) This.Controls(lnControl).Start() Endif NextEn el método del formulario para detectar si hubo cambios, el siguiente código basta:
&& Verifica si el contenido de un control fue modificado de su valor && original. For lnControl = 1 To This.ControlCount If Pemstatus(Thisform.Controls(lnControl), 'Started', 5) If This.Controls(lnControl).Changed && Retorna verdadero si algún control fue modificado. Return .T. Endif Endif Next Return .F.Se verifica si el control tiene la propiedad "Started", esto evita que compare la propiedad "Changed" de controles que no derivan de la clase y no tienen la propiedad, como labels, shapes, command button, etc.