03.09.2021 Views

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!