Cierre de un from desde icono

[emeritos]

Buenas dilpheros.

Utilizo Delphi 7 y me gustaria saber como se cierra un from desde un icono.

En el Icono tengo

frmdistribucionmanual.Close;

pero no se ejecuta nunca el procedimiento de abajo

procedure Tfrmdistribucionmanual.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frmdistribucionmanual.ModalResult := mrOK;
end;

si presiono el aspa (X) se cierra correstamente

[Casimiro Notevi]

En principio, quita esa línea:

Código Delphi [-]
frmdistribucionmanual.ModalResult := mrOK;

Y si quiers le pones mrClose, pero no hace falta seguramente.

[Neftali [Germán.Estévez]]

Ese código debería funcionar sin problemas; No se si tiene sentido el código que pones en el FormClose, porque implica que siempre devolverá el mismo resultado (por lo que no se si tiene sentido), pero funcionar, debería funcionar.

Tal vez tengas más código que interfiere con este.

Crea un proyecto nuevo, replica este código y pruébalo. Si hace falta lo subes y lo revisamos.

[[duilioisola]]

Habría que ver cómo has abierto el formulario.

Si has hecho algo así:

Código Delphi [-]
var
  FM : Tfrmdistribucionmanual;
...

begin
  FM := Tfrmdistribucionmanual.Create(...
  ...
end;

Entonces la variable FM referencia al formulario y frmdistribucionmanual no apunta a ningún lugar.

Para cerrarlo deberías hacer

Código Delphi [-]
procedure IconoOnClick()
begin
  FM.Close;
end;