Hola a todos. Sí, de nuevo visitando los foros.
Subscribo lo dicho por Germán, y celebro la propuesta de usar el depurador de Miguel.
Cita:
Empezado por amadis
Me paré en la linea del If value del SetEnabled, le puse F5, marque punto de parada.
Y luego F9, pero no para nada, se ejecuta normalmente.
|
Esto seguramente es porque al compilar faltó recoger información de depuración. Asegúrate de generar el ejecutable con la opción "Use debug DCUs", eso te permitirá poner puntos de ruptura en el código fuente de las unidades nativas de la VCL.
Cita:
Empezado por amadis
Creo que lo mejor es ir omitiendo las clases deseadas
|
Yo te aconsejaría ir
agregando las clases deseadas. Bajo la lógica de que es mejor que falte algo bueno y corregir, a que sobre algo malo, reparar daños y corregir. En la VCL, TControl (padre de TWinControl) es la clase base de todos los componentes visuales. Digamos que puedes ir agregando diferentes "ramas" que consideres completamente seguras, empezando con TControl si estás seguro de que todos y cada uno de los componentes visuales con propiedad
Enabled deben entrar en el comportamiento que deseas.
Dos cosas más:
- Siempre que puedas utiliza ClassType, InheritsFrom o el operador Is en lugar de ClassName; es más eficiente porque no comparas contra una cadena de caracteres.
- Evita usar With, fuente potencial de muchos problemas.
Un abrazo por el interminable y magnífico Delphi.
Al González.