Curso-Lazarus-FPC-Basico-1-revision-2015
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
o Si el texto asociado al checkbox dijera “Impedir cambios”, entonces ya tendría
sentido el código EditMiTexto.ReadOnly:=CBImpideCambios.Checked;
o Recuerda que el usuario final no es el programador de la aplicación y que el
usuario solo leerá el texto que esté en el formulario el cual debe conducir a una
utilización fácil, intuitiva y con lógica de la aplicación que estamos creando.
o Asimismo, es importante notar que el nombre del procedimiento a ser llamado
en el evento es el nombre del componente concatenado con el nombre del
evento. Por ejemplo: el componente CBPermiteCambiar llama para el evento
OnChange el procedimiento CBPermiteCambiarChange.
5. Utilización del evento OnChange de la clase TEdit
5.1 – Haga un doble clic en el cuadro de edición de texto (EditMiTexto) para definir el
nuevo evento “OnChange” e abrir el procedimiento EditMiTextoChange. Modifíquelo
tal como lo indicado en la Figura 37.
Figura 37: Código para el evento OnChange del componente TEdit.
5.2 – Oprima [F9] para guardar los cambios y ejecutar el proyecto.
5.3 – Ideas para retener:
o El evento TEdit.OnChange es llamado siempre que el contenido del cuadro de
texto sea modificado. Por ejemplo: a cada tecla oprimida, el código de este
evento cambia el form1.caption para o texto del EditMiTexto y así no es
necesario oprimir el botón para hacer la actualización que ¡se volvió
“automática”!
o No es ejecutado ningún código de la aplicación además de los eventos
reconocidos.
o Sería muy incorrecto poner un ciclo infinito que verifique si ocurrieron cambios
en el texto.
o En este momento, sabemos que hay código repetido en nuestro programa
(Form1.Caption:=EditMiTexto.Text;). ¡Código repetido es siempre algo malo y
debe ser evitado!
Introducción a Lazarus Página 22 de 78