Código en Delphi 6, válido para Delphi for win32 y CodeGear RAD Studio (Delphi win32) | ||
El componente EditCheck es descendiente de TCustomEdit y hereda de él todas sus propiedades y métodos. La característica que lo diferencia de este control es que dentro del mismo aparece un Checkbox que cambiará el comportamiento de la caja de edición.
Funcionamiento:
El checkbox marcado nos indicará que no ha habido ningún
cambio dentro del texto desde que éste se marcó, cualquier
cambio en el texto de la caja de diálogo desmarcaría el
check.
Ahora bien tenemos también la posibilidad de que al marcar el checkbox
hagamos que no se pueda modificar el texto (excepto por programa) mediante
la propiedad LetChange:=true;.
También es posible desactivar el checkbox, propiedad CheckEnabled
Pasamos a exponer las nuevas propiedades :
Propiedades
Alignment : Justificación del texto.
Checked : Checkbox marcado/desmarcado (true/false).
CheckEnabled: Checkbox activado o no (true/false).
FocusedColor: Color que aparecerá alrededor del Checkbox cuando éste tenga el foco.
LetChange: Permite cambios con checkbox marcado (true/false).
Eventos
OnCheckboxClick: Ocasionado por el cambio del checkbox.