Ver Mensaje Individual
  #2  
Antiguo 05-05-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Lenny.
Cita:
pero cuando habro el Form desde el MainMenu me repite el mismo Form por cada vez que ingreso y no lo coloca en primer lugar como deveria
No entiendo bién cuál es el problema, probé el código que adjuntaste y no abre dos veces el mismo MDIChild, pero como te digo no sé si ese es tu problema...

Si tenés mas de un MDIChild para llamar te convendría hacer un procedimiento para mostrarlos.
Ejemplo:
Código Delphi [-]
procedure TForm1.MostrarChild(AClass: TFormClass);
var
  i: Integer;
begin
  for i:= 0 to MDIChildCount -1 do
   if MDIChildren[i] is AClass then
   begin
     MDIChildren[i].BringToFront;
     MDIChildren[i].WindowState:= wsNormal;
     Exit;
   end;
  AClass.Create(nil);
end;

// Llamada
procedure TForm1.Button1Click(Sender: TObject);
begin
  MostrarChild(TForm2);
end;
Y en el evento OnClose de cada MDIChild poner:
Código Delphi [-]
 Action:= caFree;


Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita