otra de MDI

[pablo]

hola, estoy experimentando con este tipo de aplicaciones y tengo un par de dudas:
1) como puedo hacer para que si llamo a un form child, mientras este se visualiza, si vuelvo a la opcion de menu a llamarlo no me aparezca otro, sino que se de cuenta de q uno ya se esta ejecutando y le de el foco a ese...

2) otra es como puedo hacer para que si algunos forms child se estan ejecutando, otros no se puedan ejecutar, algo asi como exclusion mutua

un saludo
pablo

[roman]

1. Usa una variable que apunte al formulario creado. Al momento de llamarlo te fijas en el valor de esa variable. Si es nil es que no ha sido creado. Lo creas y lo muestras. Si es distinto de nil es que ya estácreado así que sólo lo muestras.
   
   Al momento de cerrar el formulario, te aseguras de que la variable vuelva a ser nil para la próxima vez que se requiera abrirlo.
   
   
2. Usando lo anterior, al momento de abrir un formulario te fijas si la variable que referencie al del otro tipo es nil o no y procedes según el caso.

// Saludos

[samantha jones]

Siendo practicos

if not assigned(form_child) then
form_child:=tform_child.Create(Self);
form_child.show;

y en el evento onDestroy de la forma hija

inherithed;
form_child:=nil;

[vtdeleon]

Colega, Puedes usar esto:

Código Delphi [-]
procedure Tform1.Button1Click(Sender: TObject);
var
  I:integer;
begin
    for I:=0 to MDIChildCount-1 do
      if MDIChildren[i] is Tform2child then begin
        MDIChildren[i].Show;
        Exit;
      end;
      form2child:=Tform2child.Create(Application);
end;

Siendo form1=MDIFORM con un boton el cual llamara Form2child=MDICHILD

[@-Soft]

hola

1) como puedo hacer para que si llamo a un form child, mientras este se visualiza, si vuelvo a la opcion de menu a llamarlo no me aparezca otro, sino que se de cuenta de q uno ya se esta ejecutando y le de el foco a ese...

bueno este punto yo lo he realizado asi, en el evento OnClose del Form coloco el codigo

Código Delphi [-]
frmMiForm := Nil;

y al ejecutarlo

Código Delphi [-]

if frmMiForm = Nil then
begin
   Application.CreateForm(TfrmMiForm, frmMiForm);
   frmMiForm.Show;
end;

y esto evitara que se pueda volver a abrir el formulario. Esto fue lo que roman te explico, pero yo te lo traduje a codigo.

Salu2

[pablo]

Muchas gracias chicos!!
ahora mi oregunta es: Quiero hacer una aplicacion MDI, de unos 15 formas mas o menos, son todos abms sencillos, pero es para una maquina Pentium de 32mb de ram (medio viejarda), es ineficiente que cada vez q quiera abrir un form lo tenga q crear.... no hay alguna maneja de dejar los forms mdi que mas se usan ya creados y q se muestren cuando yo quiero?

un saludo y gracias
pablo

[@-Soft]

hola

como te respondieron en otro hilo, al tener todos los formularios en memoria, mantienes todos los recursos tambien ocupando memoria y es obvio que la aplicacion funcionara mucho mas lenta, no en principio, pero cuando tenga unos cuantos meses o años y uno cientos o miles de registros y ahi de ti si no has normalizado tus tablas o base de datos. sera desastros y peor aun si lo vas a usar en una red.

Salu2