Abstract Error al cerrar aplicación

[jymy788]

Sip, y si te digo donde me da igual te entra la risa. En la unidad Controls, en el evento onMouseUp, vamos que no, que no puede ser......

[[Lepe]]

Código Delphi [-]
 if Assigned(FormListOutput) then
begin
FormListOutput.Close;
FormListOutput.Destroy;
end;

Destroy no se puede llamar, tienes que llamar a Free, por otra parte, despues de destruirlo, FormListOutput (que en realidad es un puntero) no queda fijado a nulo, por tanto, puede entrar en ese if dando Access violation.

Useasé:

Código Delphi [-]
 if Assigned(FormListOutput) then
begin
FormListOutput.Close;
freeAndNil(FormListOutput);
end;

Deberíamos ver que haces en el evento Onclose de cada formulario.

PD: Por favor,Edita el mensaje original y encierra el código entre

[ delphi ]
aqui vuestro codigo
[ /delphi ]

(sin espacios entre corchetes) Así consigues que respete el identado y aparezca las palabras reservadas en negrita y colores.

otras etiquetas:
code
sql
php
quote (citar un texto dicho por otra persona) [quote=Lepes] se transforma
en "Originalmente publicado por Lepes"

Código Delphi [-]
procedure Saludos();
begin 
   ShowMessage(' Un saludo y hasta luego');
end;

Un saludo

[jymy788]

sorry por lo de las etiquetas, se me pasó por completo

Este es mi código en el onClose

Código Delphi [-]
procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
var
 cont : integer;
begin
  for cont := (MDIChildCount - 1) downto 0 do
    MDIChildren[cont].Close;

  Action := CaFree;
end;

Había probado ya el FreeAndNil pero nada, me sigue fallando

De todas formas tengo un ejecutable (50k) que me he creado que me lo ejecuto al destruir la aplicación cuando cierro del todo el programa y con eso me evito las exepciones. Es una "chapuza" pero funciona y como urge....

De todas formas, una pregunta, como puedo obtener el PID del proceso "ejecutable.exe" de mi aplicación???

Un saludo

[roman]

Empezado por lepe

Destroy no se puede llamar, tienes que llamar a Free

Bueno, esto no es del todo correcto. Se recomienda usar Free en lugar de Destroy mas no es es una obligación. Free lo que hace es no fallar si el objeto es nil y como en este caso se verifica primero que no lo sea pues da un poco lo mismo.

// Saludos

[[Lepe]]

Se agradece la aclaración Roman


Lo que no acabo de comprender es por qué usas Application.Initalize dentro de un botón. Si ese botón está en la forma principal, entonces qué tienes en el .dpr ¿?

Un saludo