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 .