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;
....
ShowFormMDI(TFormaProveedores, false);
ShowFormMDI(TFormaClients,true);
...
Espero te sirva
Saludos
J.C.