Cerrar un Form MDI al abrir otro MDI

[[David]]

Cuando hago esto , el caso es que si tengo abierto un formulario , por ejemplo TFrmVentas , y le doy otra vez al botón de abrir Ventas , este formulario que ya esta se cierra y se vuelve a cargar , cuando si el formulario que esta activo , el MDIActiveChild , se le da al botón otra vez , quiero que lo único que haga es mirar sino esta maximizado y si esta que no haga nada y sino esta , pues que lo maximize , pero que no lo cierre y vuelva a crear .

He creado el siguiente procedure :

Código Delphi [-]
procedure TFomPrincipal.CerrarMDI;
 var
  i : integer;
  F : TForm;
 begin
 For i := Screen.FormCount -1 downto 0 do
    begin
        F := Screen.Forms[i];
        if F.FormStyle = fsMDIChild then
         ActiveMDIChild.Close;
    end;
 end;

Abrí que poner algo para evitar que se cierre el formulario que esta activo , al darle otra vez al bóton , para ello no sé que código poner , eso si , habría que pasarle un parametro al procedure , algo asi como procedure (F:TForm);

A ver si alguien puede ayudarme .

[[maeyanes]]

Prueba con esta variación al evento AllButtonClick anterior:

Código Delphi [-]
procedure TMDIForm.AllButtonClick(Sender: TObject);
var
  NewMDIForm: TForm;

begin
  if Self.ActiveMDIChild is MDIChildrenClass[TButton(Sender).Tag] then
  begin
    if ActiveMDIChild.WindowsState = wsMinimized then
      ActiveMDIChild.WindowsState = wsNormal
  end
  else
  begin
    Self.ActiveMDIChild.Close
    NewMDIForm := MDIChildrenClass[TButton(Sender).Tag].Create(Application)
  end
end;

Aquí lo que se hace es que si la clase de la forma que está abierta es la misma de la que quieres abrir, solamente restaura la forma si esta se encuentra minimizada. Si es diferente, entonces realiza el código de cerrar la activa y crear la nueva.

Saludos...