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 Es posible tener ítems iguales, ya que dichos ítems son numerados.
o Los ítems pueden ser indicados en tiempo de diseño, en el Inspector de Objetos,
pero también pueden ser agregados en tiempo de ejecución.
o Para agregar ítems a la lista desplegable del ComboBox, se utilizó la función
NombreDelCombo.Items.Add(), pero también se podría utilizar la función
Append() del TStrings.
o Es posible ejecutar la acción esperada del objeto ComboBox, vía programación,
llamando a su evento OnChange y enviando como parámetro una referencia al
propio objeto (self).
10. Temporizador
10.1 – Crea una nueva aplicación.
10.2 – Agrega al formulario Form1: un cuadro de edición de texto TEdit y un botón
TButton.
10.3 – Haga con que el texto inicial en el arranque de la aplicación sea “0” (cero).
10.4 – Haga con que cada vez que se presione el botón sea ejecutado el siguiente
código:
Edit1.Text:= Edit1.Text + ‘!’;
10.5 – Graba el proyecto en una carpeta adecuada y ejecútalo.
10.6 – Confirme que cada vez que se presiona el botón, un punto de exclamación
es agregado al texto.
10.7 – Modifica el evento OnClick del botón para:
Edit1.Text:= IntToStr(StrToIntDef(Edit1.Text,0) + 1);
Este código convierte el texto del Edit1 en un número entero, suma 1 y luego pone
el resultado de vuelta en el mismo control, bajo el formato de cadena.
Nota: la función StrToIntDef() permite transformar una cadena a entero,
indicando un valor predeterminado como segundo parámetro, el cual será
devuelto en caso de que el valor de la cadena contenga caracteres inválidos o
un formato inválido.
10.8 – Graba y ejecuta para confirmar que cada vez que el botón es presionado, el
número en el cuadro de edición es incrementado.
10.9 – A seguir, agrega un temporizador TTimer (de la pestaña System de la Paleta
de Componentes) al formulario.
Figura 64: Ubicación del componente TTimer y la pestaña System.
Introducción a Lazarus Página 36 de 78