TTfvaListaPantallasForm

Descripción

El objeto TTfvaListaPantallasForm (Lista de pantallas abiertas en modo local) muestra la lista de pantallas abiertas en la aplicación. Para que la aplicación llleve la lista de pantallas abiertas debe estar operando en "Modo local", esto significa que las pantallas las abre la misma aplicación sin depender de otras aplicaciones.

Modo local definido:

Modo local definido en un menú.

Si el modo local no está definido las pantallas se abren usando el ejecutable prxFramesPrj.exe.

Lista de pantallas abiertas

Lista de pantallas abiertas.

El form muestra las pantallas abiertas, podemos seleccionar una y picar el botón de "Ir a..." para que la aplicación nos lleve a esa pantalla. A veces las pantallas quedan 'tapadas' por alguna pantalla más grande, con esta opción podemos ir a cualquier pantalla quenecesitemos.

Identidad

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

Declaración

type
  TTfvaListaPantallasForm = class(TTfvsForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    ButtonIRA: TButton;
    ButtonCERRAR: TButton;
    fvsDBGrid1: TfvsDBGrid;
    procedure FormShow(Sender: TObject);
    procedure ButtonIRAClick(Sender: TObject);
    procedure ButtonCERRARClick(Sender: TObject);
  private
  protected
  public
  end;

Implementación

procedure FormShow(Sender: TObject)

Busca las pantallas abiertas dentro de los componentes de la aplicación:

for I := 0 to Application.ComponentCount - 1 do
    begin
    if Application.Components[I] is TTfvsForm then
       begin
       vCodigo  := Trim(TTfvsForm(Application.Components[I]).ClassShow.TableName);

       if AnsiCompareText(vCodigo, 'MainForm') <> 0 then
          begin
          // La agrega a la lista...
          end;
       end;
    end;

Application.Components es la lista de componentes de la aplicación, Application.ComponentCount es la cantidad de componentes que tiene la aplicación.

Busca en esa lista aquellos que son de tipo TTfvsForm (que es el ancestro de este form, entre otros) si no son el form principal los agrega a la lista.

procedure ButtonIRAClick(Sender: TObject)

Nos lleva a la pantalla que hayamos elegido en la lista, lo hace usando un comando de Delphi denominado BringToFront que traduce como "traer al frente":

TTfvsForm(Application.Components[I]).BringToFront;

Una vez que abre esa pantalla cierra ésta.

procedure ButtonCERRARClick(Sender: TObject)

Cierra el form.

Uso

Solo se usa en TTprxExplorer_MainForm que es el form principal de la aplicación:

Lista de pantallas en el form principal.