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;
procedure TForm1.Button1Click(Sender: TObject);
begin
MostrarChild(TForm2);
end;
Y en el evento OnClose de cada MDIChild poner:
Saludos.