[Lazarus-es] Application.Terminate

[Ismael L. Donis Garc?a]

Respondo entre líneas.
=========
¦¦ ISMAEL ¦¦
=========
----- Mensaje original ----- 
De: "Javier Villarroya" <javivf.dev en gmail.com>
Para: <lazarus-es en lists.lazarus.freepascal.org>
Enviado: lunes, 14 de diciembre de 2009 10:47
Asunto: Re: [Lazarus-es] Application.Terminate


El 14/12/2009 18:00, Ismael L. Donis Garc?a escribió:
> Existe otra instrucción que no sea Application.Terminate para finalizar la
> aplicación.
>
>

Prueba con Application.MainForm.Close

No, tampoco pero ya encontré el causante del problema aunque no he ideado 
como solucionarlo aun.

Tengo un combobox y en el evento de satlir mando a ejecutar un 
procedimiento. El cual puede que muestre o no un formulario Modal, en caso 
de mostrarlo cuando lo cierro se vuelve a ejecutar el procedimiento de salir 
del combo y para mi entender no debía ser así, sino que ya el focus debía 
estar en el otro objeto. El procedimiento es: inienti();

procedure Tfrmlogin.cbounidadExit(Sender: TObject);
begin
  if rslogin.Locate('entidad', cbounidad.Text, []) then lblnunidad.Caption 
:= rslogin.FieldValues['nombre'];
  dtm.strentidad := cbounidad.Text + '';
  inienti();
end;

Creo que esa es la causa, la verdad no se si lo es realmente, lo solucioné a 
traves de una variable pública la que verifico al cerrar el formulario.

  frmdatgmp.ShowModal;
  frmdatgmp.Destroy;
  if blnend then
     begin
       cerrarme(); // aquí está el Application.Terminate
       exit;
     end;

No se si eso será una chapucería, pero al menos resolví con mis escasos 
conocimientos.


> Si tengo un formulario mostrado por .ShowModal que es mandado a mostrar 
> por
> otro que también es llamado por .ShowModal y doy Application.Terminate en 
> el
> segundo formulario la aplicación no se cierra sino que vuelve al 
> formulario
> anterior, ósea al primero que se mostró con .ShowModal, pero si estoy en
> primero la aplicación si cierra correctamente.
>
> Tengo Lazarus 0.9.29 r22754 FPC 2.3.1 i386-win32 del 2009-11-25
>
> Saludos
> =========
> ¦¦ ISMAEL ¦¦
> =========
> PD: No tengo acceso a Internet
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>



_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es