Aplicacion MDI

[[ElDioni]]

¿Cuando eras formularios Child no valía con poner el visible a true para mostrarlos o a false para ocultarlos y usar la propiedad brintofront para ponerlos encima de los demás formularios?

Un saludo.

[Neftali [Germán.Estévez]]

Empezado por ElDioni

¿Cuando eras formularios Child no valía con poner el visible a true para mostrarlos o a false para ocultarlos y usar la propiedad brintofront para ponerlos encima de los demás formularios?

Eso puede que sí, pero BringToFront no es lo mismo que Modal, hay que tenerlo en cuenta.

[Ana María]

Aquí pongo un pequeño código, comentado, práctico para trabajar con aplicaciones MDI, usando la herencia.

Debes de crear un nuevo form al que llamarás MDI y a su respectiva Unit UMDI, hay que cambiar su propiedad FormStyle a fsMDIChild y en el evento ONClose colocar caFree, también hay que remover de la interface la declaración var MDI : TMDI, y agregar las classFunction tal y como se ve a continuación.

Código Delphi [-]
unit UMDI;

interface

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

type
  TMDI = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  public
    class function Formulario: TMDI;
    class function CrearOTraerAlFrente: TMDI;
  end;

implementation

{$R *.dfm}

procedure TMDI.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree; //Libera memoria al cerrar
end;

class function TMDI.Formulario: TMDI; //Función auxiliar para comprobar que un form
//está abierto
var
  I: Integer;
begin
  for I := Screen.FormCount - 1 downto 0 do
  begin
    TForm(Result) := Screen.Forms[i];
    if Result.ClassType = Self then
      Exit;
  end;
  Result := nil;
end;

class function TMDI.CrearOTraerAlFrente: TMDI;
begin
  Result := Formulario;
  LockWindowUpdate(Application.MainForm.ClientHandle); //Evita un molesto efecto
  // visual al crear la ventana
  try
    if Assigned(Result) then //Comprueba si existe el form y lo trae al frente
    begin
      if Result.WindowState = wsMinimized then
        ShowWindow(Result.Handle, SW_RESTORE);
      Result.BringToFront;
    end
    else
    begin
      Result := Create(Application.MainForm); //Si no existe lo crea y lo muestra
      Result.Show;
    end;
  finally
    LockWindowUpdate(0);
  end;
end;

end.

Debes heredar de el form que acabas de crear todos los forms MDI que necesites, para hacerlo en Delphi7 sigues : File > New>Other/(buscas el tab con el nombre de tu proyecto) en Delphi 2010 : File > New>Other/Inheritable Items, y haces dobleClick sobre MDI

Para llamarlo desde el form principal de tu aplicación solo debes agregarlo a la cláusula Uses de la implementación de tu form principal y escribir lo siguiente (para el caso de tu ejemplo):

Código Delphi [-]
TForm2.CrearOTraerAlFrente;

Con eso es suficiente para trabajar con MDI.

PD: No olvides quitar los forms heredados de la creación automática de forms. Project > Options > Forms

[ecfisa]

Empezado por Ana María

Código Delphi [-]unit UMDI; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TMDI = class(TForm) procedure FormClose(Sender: TObject; var Action: TCloseAction); public class function Formulario: TMDI; class function CrearOTraerAlFrente: TMDI; end; implementation {$R *.dfm} procedure TMDI.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; //Libera memoria al cerrar end; class function TMDI.Formulario: TMDI; //Función auxiliar para comprobar que un form //está abierto var I: Integer; begin for I := Screen.FormCount - 1 downto 0 do begin TForm(Result) := Screen.Forms[i]; if Result.ClassType = Self then Exit; end; Result := nil; end; class function TMDI.CrearOTraerAlFrente: TMDI; begin Result := Formulario; LockWindowUpdate(Application.MainForm.ClientHandle); //Evita un molesto efecto // visual al crear la ventana try if Assigned(Result) then //Comprueba si existe el form y lo trae al frente begin if Result.WindowState = wsMinimized then ShowWindow(Result.Handle, SW_RESTORE); Result.BringToFront; end else begin Result := Create(Application.MainForm); //Si no existe lo crea y lo muestra Result.Show; end; finally LockWindowUpdate(0); end; end; end.

¿ Y despues no te cuesta leer ese código ?

Saludos.

[Ana María]

Empezado por ecfisa

¿ Y despues no te cuesta leer ese código ?

Saludos.

Claro que me cuesta, por eso lo edité. Prepotente.

[ecfisa]

Empezado por Ana María

Claro que me cuesta, por eso lo edité. Prepotente.

No es prepotencia Ana María, es algo que por lo visto no has cultivado. Se llama humor...

Espero que lo practiques, hace bién al que lo dá y al que sabe recibirlo.

Saludos.

[Ana María]

Empezado por ecfisa

No es prepotencia Ana María, es algo que por lo visto no has cultivado, se llama humor...

Espero que lo practiques, hace bién al que lo dá y al que sabe recibirlo.

Saludos.

Tienes razón .... hay gente que encuentra humor en tan poco... como por ejemplo: Encontrar humor en que, un post que se edita después de previsualisarlo descuadra las etiquetas.

PD: Comedidamente solicito a un moderador que no permita que se desvirtue este hilo y si es de su parecer eliminar los últimos 4 posts de este hilo. Muchas gracias

[[Caral]]

Hola
Ana Maria se fue buscando el sol en la playa tarararararararara...rarara......
Saludos
PD: Se que tambien se fue con Eva.
PD2: Tema Nuevo, Hilo Nuevo.........

[Neftali [Germán.Estévez]]

Empezado por ecfisa

¿ Y despues no te cuesta leer ese código ?

Hay que decir cuando al inicio del código aparece esto:

Código Delphi [-]

Es porque sí se han colocado las etiquetas, pero al previsualizarlo se han perdido. Es un pequeño bug del código que se encarga de "colorear la sintaxis".