Ventanas Mdi

[MARIA_MAR]

Buenas tardes,
Soy nueva en el foro y nueva en Delphi. Estoy haciendo una aplicacion MDI con una ventana padre y varias hijas por ejemplo una MDIChild para la ficha de clientes , otra para proveedores, etc..
Cada vez que abro una de ellas necesito que me avise si ya existe otra del mismo tipo abierta, ¿ como distingo si las ventanas que ya hay abiertas corresponden a clientes ó a proveedores ?

Gracias.

[ecfisa]

Hola MARIA_MAR y bienvenida a Club Delphi.

Como es habitual hacer con los nuevos miembros te invito a que leas nuestra guía de estilo

En cuanto a tu pregunta, revisá estos enlaces:

• Abrir solo una vez un MDIChild
• evitar que un mdichlid se repita mas de 1 vez
• Comportamiento de Forms MDI

Saludos.

[MARIA_MAR]

Gracias Ecfisa,

Ya habia mirado alguno de estos enlaces pero no el adecuado, me ha sido de mucha ayuda.

Saludos

[[jcarteagaf]]

Maria_Mar

Espero este codigo te sirva

Código Delphi [-]
Procedure ShowFormMDI(TfrmClass: TFormClass; bVariasInstancias: Boolean);
var
  i: smallint;
  F: TForm;
begin
  if not bVariasInstancias then
    for i := Application.MainForm.MDIChildCount - 1 downto 0 do
    begin
      F := Application.MainForm.MDIChildren[i];
      if F.ClassType = TfrmClass then
      begin
        if F.WindowState = wsMinimized then
          F.WindowState := wsNormal;
        F.BringToFront;
        exit;
      end;
    end;
  with TfrmClass.Create(Application) do
    Show;
end;

Puedes colocar esa funcion en tu pantalla desde la cual llamas a tus formas hijas o en una unidad de funciones.

La forma de utilizarla:

Código Delphi [-]
uses  uFormaProveedores, uFormaClientes;

....


 // Llama a la forma de Proveedores Hija y solo permite que se muestre una sola vez posteriores llamadas activaran la forma hija ya creada
ShowFormMDI(TFormaProveedores, false); 

// Llama a la forma Clientes y permite crear varias instancias de la misma
ShowFormMDI(TFormaClients,true);
...

Espero te sirva

Saludos

J.C.