Mdi no repetir ventanas abiertas

[[José Luis Garcí]]

Gracias por tu rápida respuesta Casimiro, me parase una idea genial lo de agregarla a un unit de funciones, lo probare a partir de mañana y te digo como me fue. Un día de estos tendrimaos que juntar las funciones que usamos en un único fichero de todos los miembros, nos ayudaría mucho.

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

Creo que para esto se pueden usar las propiedades MDIChildCount y MDIChildren de TForm.

Por ejemplo para un form2 se puede preguntar si ya está entre los que están creados/abiertos.

Código Delphi [-]
var
  i:Integer;
begin

  // Revisar los formularios...
  for i := 0 to (Self.MDIChildCount - 1) do begin
    if (Self.MDIChildren[i] = form2) then begin
      // Nada
      MessageDlg('Ya está abierto...', mtInformation, [mbOK], 0);
      Exit;
    end;
  end;

  // Si llega a quí es que hay que crearlo.
  form2 := TForm2.Create(Self);

Puedes colocarlo dentro de un procedimiento para automatizarlo...

[Casimiro Noteví]

Todos los días se aprende algo , nunca me había interesado por saber para qué servían esas propiedades tan "raras", incluso alguna vez he llegado a implementar algo parecido usando la propiedad 'tag'...

[[José Luis Garcí]]

Personalmente me gusta la idea de trabajar con una funcion, pero también admito que es más lógico el método de Neftali para las MDI. De Todas maneras me da un error en la funcion Casimiro, imagino que por culpa de algún uses?, el error es Operator semi colon justo en

Código Delphi [-]
Error(3, TForm(Fnombre).name)

, si me podéis decir cual es el problema y como se podría, si es posible convertir el método proporcionado por Neftali a una funcion. Muchas Gracias

[roman]

¿Y pr qué no algo como esto?

Código Delphi [-]
procedure FormHijoClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  FormHijo := nil;
end;

Y para abrir el formulario hijo:

Código Delphi [-]
if not Assigned(FormHijo) then
  FormHijo := TFormHijo.Create(nil);

// Saludos

[Casimiro Noteví]

Empezado por José Luis Garcí

De Todas maneras me da un error en la funcion Casimiro, imagino que por culpa de algún uses?, el error es Operator semi colon justo en Código Delphi [-]Error(3, TForm(Fnombre).name)

Bueno, es que es un procedimiento mio, algo así:

procedure Error (iNumError : integer; cTexto : string);
var
  cE : string;
begin
  case iNumError of
    0 : cE :=  cTexto;
    1 : cE :=  cTexto;
    2 : cE :=  cTexto;
    3 : cE := 'Error al crear el formulario ' + cTexto;
    4 : cE := 'Error al cerrar el formulario ' + cTexto;
...
...

[[rcarrillom]]

Olvídense de escribir más código , las Rx tienen la función FindShowForm en su unidad AppUtils que ya lo implementa; las Rx ya fueron integradas en las jcl y jvcl, si tienen éstos paquetes instalados, pues ya está.

FindShowForm function


--------------------------------------------------------------------------------

Unit
AppUtils

Declaration

Código Delphi [-]
function FindShowForm(FormClass: TFormClass; const Caption: string): TForm;

Description
FindShowForm returns the windowed Delphi's form whose class is identified by the specified class name FormClass and (or) window caption passed as Caption.

If FormClass is not the name of the class of an existing form, FindShowForm creates new form by calling Application.CreateForm. For found or created form the Show method is called.

FindShowForm example:

Código Delphi [-]
procedure MainForm.ShowFormItemClick(Sender: TObject);
begin
FindShowForm(TForm1, '');
end;

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

Empezado por rcarrillom

Olvídense de escribir más código , las Rx tienen la función FindShowForm en su unidad AppUtils que ya lo implementa; las Rx ya fueron integradas en las jcl y jvcl, si tienen éstos paquetes instalados, pues ya está.

Ya estará, pero me parece un poco exagerado añadir las Rx al proyecto () o la JCL+JVCL () para no programar 4 líneas de texto.

Para pensárselo...

[roman]

Empezado por rcarrillom

las Rx tienen la función FindShowForm

Pues sí, pero tanto FindComponent como FindShowForm hacen un ciclo en búsqueda del formulario. Ese ciclo no es necesario si se asegura poner la referencia al formulario en nil. Sí, sí, ya sé, apenas ganaremos medio milisegundo, pero algo es algo

// Saludos