Cerrar formularios

[zvf]

Hola a todos!

Tengo dos formulario, uno se llama FPrincipal, el cual manda llamar a FUsuario.
Lo que pasa es que mando llamar FUsuario, y al momento de escribir la linea de codigo:

FUsuario.close;


Cierra el formulario FUsuario, pero automaticamente despues se ejecuta el procedimiento procedure TFPrincipal.FormActivate(Sender: TObject); y yo no quiero que se ejecute, quiero que solo cierre el formulario FUsuario, y deje las ventanas de FPrincipal tal cual están, sin volver de nuevo al inicio.

¿ Hay forma de hacerlo?

[roman]

Supongo que tienes código en el evento OnActivate de FPrincipal que no quieres que vuelva a ejecutarse. En ese caso quiza dicho código estaría mejor en el evento OnShow. De no ser esto factible entonces podrías valerte de una variable booleana que te sirva de bandera para saber si es la primera vez que se ejecuta dicho evento:


procedure TFPrincipal.FormActivate(Sender: TObject);
begin
if PrimeraVez then
begin
{ Tu código }
end;
end;


// Saludos

[zvf]

¡Gracias!
Se solucionó enviandolo al evento onshow.
:D