[Lazarus-es] Error en funci?n while

[Ismael L. Donis Garc?a]

Gracias ya lo resolví creo que de una forma ortodoxa, pero al menos 
funciona.

Con .show no me servía porque me dejaba pasar al otro formulario, tampoco me 
servía en el evento AfterConstruction ya que se ejecuta antes de mostrar el 
formulario, lo que no se porque en el evento .FormShow también se ejecuta 
antes de mostrar el formulario.

Necesitava un evento que se ejecutara después de estar visible el formulario 
y el único que encontré fue el .FormActivate por lo que tuve que usar una 
variable para evitar que el procedimiento se ejecutase de nuevo al cerrar el 
formulario.

Gracias a to2s
=========
¦¦ ISMAEL ¦¦
=========
----- Mensaje original ----- 
De: "JoshyFun" <joshyfun en gmail.com>
Para: "Spanish version of Lazarus List" 
<lazarus-es en lists.lazarus.freepascal.org>
Enviado: lunes, 23 de noviembre de 2009 04:49
Asunto: Re: [Lazarus-es] Error en funci?n while


Hello Ismael,

Tuesday, November 24, 2009, 12:04:39 AM, you wrote:

ILDGa> 1 Millón de gracias, no conocía la existencia de Reset.
ILDGa> Ahora tengo otro problema mucho más sencillo para ustedes y es el 
siguiente.
ILDGa> Yo quiero mostrar un formulario y de ese llamo la función que en caso 
que me
ILDGa> devuelva false me muestre otro formulario pero encima de este y si me 
lo
ILDGa> muestra pero me oculta el que lo está llamando.

Haces showmodal, cuyo significado es "Ponte encima de cualquier otro
formulario y no permitas que otro se "suba" encima".

Prueba con:

ILDGa>   if datos () then
ILDGa>     begin
ILDGa>        // aquí realizo una serie de operaciones
ILDGa>     end
ILDGa>   else
ILDGa>     begin
             frmorigen:=Tfrmorigen.Create(nil);
             frmorigen.show; // Muestra formularios entre iguales
             Self.BringToFront; // Obliga al actual a estar por encima
ILDGa>     end;
ILDGa> end;

-- 
Best regards,
 JoshyFun


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