En línea desde el 7 de noviembre de 2000

4.VII El control PageControl

A veces, la cantidad de información que es necesario solicitar o mostrar excede la capacidad habitual de una ventana, siendo preciso usar varias para poder gestionar todos los controles requeridos. Una alternativa a la creación de múltiples ventanas consiste en definir varias páginas en la misma ventana, lo cual es posible mediante varios de los controles incluidos en Delphi. Entre ellos existe uno que nos permite gestionar varias páginas en un form, en este caso con el nuevo aspecto de Windows 95. Este control se llama TPageControl y dispone de las siguientes propiedades:

Cada una de las páginas contenidas en un control TPageControl es un objeto de tipo TTabSheet. Podemos acceder o modificar la página activa mediante la propiedad ActivePage y acceder a cada una de las páginas a través de la propiedad Pages, que es una matriz de objetos TTabSheet. Esta matriz contendrá tantos elementos como indique la propiedad PageCount, que está disponible sólo en tiempo de ejecución y, además, es de sólo lectura.

Definir las páginas de un TPageControl

Al insertar un control TPageControl en el form tan sólo tendremos una superficie con un borde, similar a un TPanel, pero en principio no existirá página alguna. Cada vez que deseemos añadir una página al control deberemos abrir el menú emergente, pulsando el botón derecho del ratón con el puntero sobre el control, y seleccionar la opción New Page. Al hacerlo aparecerá una página vacía con un título por defecto en la pestaña y en el Inspector de objetos podremos ver las propiedades del objeto TTabSheet que acabamos de crear.

Mediante las propiedades del TTabSheet podemos establecer el título que aparecerá en la pestaña (Caption), el tipo de letra (Font), su estado actual (Enabled y Visible), etc. Además de estas propiedades, habituales en todos los componentes visibles, al actuar como un contenedor para los controles, un TTabSheet cuenta también con las propiedades ComponentCount, Components, ControlCount y Control.

Por defecto la pestaña de acceso a una página está visible, lo que permite en tiempo de ejecución que el usuario pueda pulsarla activando esa página. Podemos dar el valor False a la propiedad TabVisible del TTabSheet para ocultar la pestaña correspondiente, desactivando así el acceso a esa página.

Propiedades comunes a todas las páginas

Por defecto, cada una de las pestañas ajusta su tamaño al necesario para contener el título que se haya asignado a la propiedad Caption. Esto es así porque inicialmente las propiedades TabHeight y TabWidth tienen el valor cero, pero asignando el valor que a nosotros nos interese podremos establecer un alto y ancho común para todas las pestañas.

Por regla general el número de páginas existentes en una ventana no es muy grande, por lo que todas las pestañas se pueden alinear en una sola fila. En caso de que esto no sea posible, automáticamente aparecerá en el extremo derecho un control con dos botones, que permitirán el desplazamiento de las pestañas a izquierda y derecha. Si no queremos este funcionamiento, podemos dar el valor True a la propiedad MultiLine, lo que hará que las pestañas se distribuyan en tantas filas como sea necesario.

Métodos de TPageControl

Ya sabemos que en tiempo de ejecución el usuario puede cambiar la página activa de un TPageControl con tan solo una pulsación de ratón. Nosotros, desde el código de nuestro programa, también podemos cambiar de una página a otra, simplemente asignando a la propiedad ActivePage el nombre del TTabSheet correspondiente.

Otra forma de cambiar de una página a otra en utilizar el método SelectNextpage, que nos permite desplazarnos a la página siguiente o anterior, dependiendo de que pasemos como parámetro el valor True o False, respectivemente. También podemos usar el método FindNextPage, que facilita el desplazamiento a la página siguiente o anterior a una dada. Al llamar a este método pasaremos tres parámetros: el nombre de la página de referencia, un valor de tipo Boolean indicando si se desea ir a la siguiente, True, o a la anterior, False y por último otro valor de tipo Boolean, que en caso de ser True indicará al control que sólo devuelva páginas que estén activas.

TTabControl

El control TTabControl , es por el contrario un control simple, que muestra con una apariencia prácticamente idéntica a un TPageControl. Las diferencias, sin embargo, son muchas, ya que el TTabControl no actúa como un contenedor, ni intercambia automáticamente páginas. Su finalidad es, por lo tanto, servir simplemente como un conjunto de opciones que se muestran en forma de pestañas, de las cuales se puede seleccionar una en cada momento.