[Lazarus-es] Terminate application no funciona en lazarus

[José Mejuto]

Hello Edwin,

Saturday, September 4, 2010, 7:12:43 PM, you wrote:



EQ> Holka, estoy trtando de terminar toda mi app pero desde
EQ> cualquier formulario. Mi app tiene como 20 form y cada una tiene
EQ> un boton para salir de la aplicacion, si ya se es un disparate
EQ> pero...., el punto es que solo funciona desde el form principal ,
EQ> como puedo salir de mi app desde cualquier sitio en delphi solo
EQ> hacia Appllication terminate y listo.;

Ese es un método un poco "salvaje", ya que termina y termina, vamos
que no permite operaciones al terminar.

Yo te aconsejaría que hicieras un close a todos los formularios,
dejando el MainForm para el final (por aquello de que suele ser más
importante). Algo como:

var
  j: integer;
begin
  for j:=Screen.Forms.Count-1 downto 0 do begin
    if Screen.Forms[j]<>Application.MainForm then begin
      Screen.Forms[j].Close;
    end;
  end;
  Application.Mainform.Close;
end;

Hay que poner unos controles de errores por enmedio ya que puede que
un form cierre otro que esté abierto, y por lo tanto de un error luego
al intentar cerrarlo.

-- 
Best regards,
 José