PRG DELPHI/FRAMES

Introducción

Los frames de Delphi tienen una definición muy similar a la de los forms permitiendo el agregado de controles visuales (y no visuales) y programando su funcionalidad, pero para mostrarse deben ser 'pegados' en algún otro componente visual, por ejemplo, un panel dentro de un form. Es decir, que desarrollamos los frames como si fueran un form, pero la única manera de interactuar con ellos es pegándolos a un componente que lo permita. Los frames son útiles para organizar grupos de controles que se usan en múltiples lugares en la aplicación.

Por ejemplo, en Pragma todas las pantallas pueden mostrarse en dentro de la aplicación:

Un frame dentro de la aplicación.

O pueden mostrarse en un form independiente:

Un frame en un form independiente.

En ambos casos es el mismo frame que arma la pantalla (según la definición de la misma en la base de datos, más sobre esto más adelante), y se puede mostrar dentro del panel a derecha de la aplicación o en un form independiente.

(Ver Trabajar con frames en Delphi).

Los frames también permiten la orientación de objetos y un frame puede ser derivado por otro:

• El frame de base podría contener controles estándar como un menú, un botón de aplicar, un botón de cancelar y funcionalidad básica.
• Los frames que derivan del anterior pueden agregar controles específicos a los datos que editan, por ejemplo: podría haber una frame de clientes, otro de artículos, con su propia funcionalidad y ambas se favorecen de la funcionalidad del ancestro.

La aplicación de Pragma hace un uso extensivo de los frames.

Frame de ejemplo

Como ayuda para comprender la estructura de los frames crearemos un frame sencillo con algunos controles y funcionalidad básica. Siguiendo con el ejemplo de la clase TPersona el form se llamará TPersonaFrame.

Un frame tiene dos vistas distintas:

• La vista que ve el usuario durante la ejecucuión de la aplicación.
• La vista que tiene el desarrollador mientras crea el form.

Crear un nuevo frame

Los frames pueden crearse usando herramientas de Delphi o programando, en este caso usaremos Delphi.

Cuando recién creamos un frame el desarrollador verá lo siguiente:

Frame vacío visto por el desarrollador.

Notar los puntos en pantalla que asisten para ubicar los controles.

Eventualmente veremos la vista del usuario, por ahora vamos a agregar algún control.

Código del nuevo frame

El código hasta ahora apenas si contiene algunos comandos, aunque se nota muy parecido a una clase:

unit PersonaFrame;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs;

type
  TTPersonaFrame = class(TFrame)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

end.

Al igual que una clase tiene:

• unit.
• interface.
• uses.
• type.
• implementation.

Y deriva de la clase TFrame que es un objeto incluido en Delphi.

Definición de clases en Delphi puede servir como referencia.

Eventos en el frame

Un evento es un acontecimiento que ocurre dentro de una aplicación, los eventos pueden vincularse con procedimientos de objetos para que éstos hagan algo cuando sean notificados.

Al igual que cualquier componente, los frames permiten la definición de eventos. Aunque no tienen, como los forms, los eventos de OnShow y OnHide.

Eventoa en un frame.

(Ver más sobre eventos en Eventos en Delphi).

Agregar controles al frame

Los controles son objetos visuales que permiten la interacción del usuario con la aplicación tales como:

• Paneles.
• Cajas de edición.
• Checkboxes.
• Botones.

Vamos a agregar algo al frame.

Agregar un checkbox

Un checkbox permite marcar un campo indicando algo, solo tiene 2 valores posibles: marcado o desmarcado.

Para el desarrollador se ve así:

Un checkbox en un frame.

En el código:

type
  TTPersonaFrame = class(TFrame)
    CheckBoxDeAcuerdo: TprxCheckBox;

El tipo del control es TprxCheckBox que es un checkbox programado en Pragma que deriva de TCheckBox.

Delphi además guarda información en un archivo con detalles sobre el tamaño, alineación y jerarquía de los controles del frame, por ejemplo:

object TPersonaFrame: TTPersonaFrame
  Left = 0
  Top = 0
  Width = 345
  Height = 257
  TabOrder = 0
  object CheckBoxDeAcuerdo: TprxCheckBox
    Left = 64
    Top = 56
    Width = 233
    Height = 14
    Caption = 'Click si est'#225' de acuerdo'
    TabOrder = 0
  end
end

Cómo usar el frame

Vamos a mostrar el frame en el form que creamos en Definición de forms en Delphi, antes de eso hay que hacer un par de cambios.

Para empezar, vamos a agregar un panel justo debajo del memo, y un botón para agregar el frame:

Cambios al form para abrir el frame.

Y al botón le agregamos un evento OnClick para que se ejecute cuando lo piquemos, el código es:

procedure TTPersonaForm.ButtonCrearFrameClick(Sender: TObject);
var
  vFrame: TTPersonaFrame;
begin
  vFrame := TTPersonaFrame.Create(Self);
  vFrame.Name   := 'nombre_del_frame';
  vFrame.Parent := PanelParaFrame;
  vFrame.Align  := alClient;
end;