TTprxFrames MainForm

Introducción

El form TTprxFrames_MainForm (Form para abrir frames desde el explorador principal) implementa la funcionalidad para abrir una pantalla solo recibiendo el nombre de la misma. Se usa desde el explorador principal TTprxExplorer_MainForm exclusivamente.

Identidad

• Ancestro: TfvsForm
• Carpeta: C:\DevelopPrx\explorer
• Archivo: prxFrames_MainForm.pas

Pantalla

Aspecto en diseño

En diseño la pantalla se ve así:

Vista en diseño.

El form solo tiene un panel donde se crean las pantallas.

Aspecto en runtime

En runtime se ve así:

Vista en runtime.

En este caso muestra la pantalla de la tabla CONTABILIDAD/CUENTAS, la pantalla ocupa toda la aplicación.

Declaración

type
  TTprxFrames_MainForm = class(TTfvsForm)
    StatusBar1: TStatusBar;
    panel_de_base: TPanel;
    MemoPARAMETROS: TMemo;
    procedure   FormShow(Sender: TObject);
    procedure   FormActivate(Sender: TObject);
    procedure   FormClose(Sender: TObject; var Action: TCloseAction);
    procedure   FormDestroy(Sender: TObject);
    procedure   FormCreate(Sender: TObject);
  private
    FLogin: Boolean;
  protected
    procedure   OnDatabaseConnect(Sender: TObject);
    property    Login: Boolean read FLogin write FLogin;
  public
  end;

Implementación

procedure FormShow(Sender: TObject)

Ejecutado al mostrarse el form, implementa:

• Toma los datos de la pantalla que debe abrir, el usuario, clave y demás datos para hacer la conexión a la base de datos.
• Conecta a la base de datos con esos datos.
• Abre la pantalla solicitada.

Uso

Este form es llamado desde:

• function TfvsClassShow.ShowOnFormExternal.