Problema al Cerrar Aplicacion

[rgstuamigo]

Los estoy creando en tiempo de ejecucion...

Si lo lo estas creando en tiempo de ejecucion y has puesto en el On close este codigo:

Código Delphi [-]
procedure TFBase.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;//aqui estas liberando memoria.
end;

Eso significa que ya no necesitas ir liberando todos los formularios cuando cierres el Principal.Me entiendes?.
Ademas cuando se cierra el principal este automaticamente cierra a todos los formularios de la aplicacion;por tanto tan solo en el evento OnCloseQuery yo pondria tan solo lo siguiente modificando un poco tu codigo:

Código Delphi [-]
if MessageDlg('Desea Salir del Sistema ...?',mtConfirmation,[mbYes,mbNo],0)=mrNo then
   CanClose:=False;//aqui la variable CanClose viene por defecto con True
                   //asi que si me no me preguntase atraves de este dialogo igual se cerraria el formulario.
                   //Este dialogo es tan solo para tener la posibilidad de cambiar dicha 
                   //variable a False para que no se cierre el formulario

Pruebalo..
Saludos..

[Efren2006]

Saludos a Todos

Gracias por su tiempo en ayudarme con este Problema,,,

Resolvi el problema del Loop, colocando esto;

Código Delphi [-]
 
..
..
for idx:=Screen.FormCount-1 downto 1 do
  If Screen.Forms[idx] is TForm Then
    If TForm(Screen.Forms[idx]).Name<>Name Then
       If TForm(Screen.Forms[idx]).Owner=Self Then
          TForm(Screen.Forms[idx]).Destroy;

Pero al terminar de cerrar la aplicacion me consigo con el siguiente error;

Exception EInvalidPointer in module rtl120.bpl at 000087c9

[rgstuamigo]

Exception EInvalidPointer in module rtl120.bpl at 000087c9

Pues pienso que eso ocurre por estas tratando de liberar un formulario que ya se libero anteriormente.Por eso no se debe utilizar el destructor directamente,para destruir o liberar un objeto en delphi utiliza el metodo Free. Es decir tu ultima linea seria:

Código Delphi [-]
TForm(Screen.Forms[idx]).Free;

Pero insisto de que no es nesesario hacer todo esto:

Código Delphi [-]
for idx:=Screen.FormCount-1 downto 1 do
  If Screen.Forms[idx] is TForm Then
    If TForm(Screen.Forms[idx]).Name<>Name Then
       If TForm(Screen.Forms[idx]).Owner=Self Then
          TForm(Screen.Forms[idx]).Destroy;

por lo anterirmente que comente en el anterior Post;
Saludos...

[Efren2006]

Saludos rgstuamigo

Como comente anteriormente comparto tu teoria, porque anteriormente lo usaba asi, pienso que el problema se debe a que estoy contruyendo estos formularios que se encuentran dentro de una BPL, la verdad ya he hechos muchas pruebas y la verdad la aplicacion falla en algunos equipos y en otros no,,, la verdad estoy por rehacer completamente el formulario Principal para verificar posibles errores..

Gracias por tu tiempo ...