Form

[shoulder]

Hola, porque no me cierra una ventana cuando en el onActivate, doy esta orden


if nvacio = 1 then
form4.close;


entra dentro del if, pasa por el close, pero sigue de largo, no se como hacer.
Gracias.

[roman]

Por favor, asigna títulos adecuados a tus mensajes y utiliza las etiquetas [code] o [delphi] para escribir código.

En cuanto a tu pregunta, no puedes cerrar una ventana desde el OnActivate u Onshow; esto es, no puedes cerrar una ventana que aun no termina de mostrarse.

Lo que puedes hacer es lanzar enviar un mensaje personalizado con PostMessage y en el manejado de dicho mensaje mandar cerrar la ventana. Busca AfterShow o CM_AFTERSHOW en los foros para ver un ejemplo de lo que digo.

// Saludos

[BrunoBsso]

En realidad SI se puede hacer eso. En el evento OnActivate del form podes cerrarlo sin problemas. Al menos eso me demuestra D2010.
Te recomiendo ke directamente no uses el identificador del form (o sea, "form4"). Simplemente ponele Close;
Sino, también podrias ponerle Self.Close;

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
  Close;
end;

Saludos!

[Casimiro Notevi]

¿Seguro que así se cierra?

[BrunoBsso]

Empezado por Casimiro Notevi

¿Seguro que así se cierra?

Sip. Estaba seguro que si, pero lo probé antes de comentarlo por las dudas

[roman]

A mi me funciona tanto en el OnShow como en el OnActivate, pero, sólo si es el formulario principal. Si se usa Show para mostrar otro formulario, entonces no cierra. De hecho, me lanza la excepción:

---------------------------
Project1
---------------------------
Cannot change Visible in OnShow or OnHide.
---------------------------
Aceptar
---------------------------

// Saludos

[[Caral]]

Hola
Me imagino:

Código Delphi [-]
if nvacio = 1 then
begin
If Form4.visible = true then
form4.close;
end;

Saludos

[BrunoBsso]

Empezado por roman

A mi me funciona tanto en el OnShow como en el OnActivate, pero, sólo si es el formulario principal. Si se usa Show para mostrar otro formulario, entonces no cierra. De hecho, me lanza la excepción:

---------------------------
Project1
---------------------------
Cannot change Visible in OnShow or OnHide.
---------------------------
Aceptar
---------------------------

// Saludos

Tenés razón, no lo había probado en otro form que no sea el main.
Bueno, la única solución que le veo es desde el form que lo invoca.

Código Delphi [-]
//Form1 llama a Form4 en un OnClick de cualquier botón
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form4.Show;
end;

//Pero en vez de llamarlo podría verificar NVacio = 1 antes
procedure TForm1.Button1Click(Sender: TObject);
begin
  if NOT(NVacio = 1) then
    Form4.Show;
end;

[BrunoBsso]

Empezado por Caral

Hola
Me imagino:

Código Delphi [-]
if nvacio = 1 then
begin
If Form4.visible = true then
form4.close;
end;

Saludos

Eso no debe funcionar, porque la propiedad "visible" de los formularios siempre es true en los OnActivate de los mismos. Así que sería una condición retórica (siempre daría true) y volvería a lanzar el mismo error.
Saludos!

[roman]

Empezado por BrunoBsso

Bueno, la única solución que le veo es desde el form que lo invoca.

Puede hacerse como lo indiqué en mi primer mensaje. No obstante, yo concuerdo más contigo en el sentido de que quien debe hacer la comprobación es el formulario que llama.

// Saludos

[shoulder]

Gracias a todos, probe
if nvacio = 1 thenbeginIf Form4.visible = true thenform4.close;end;Pero me pasa de largo, tendria que existir una instancia porterior al onActivate, para cerralo ahi.

[roman]

La respuesta está desde mi primer mensaje.

// Saludos

[BrunoBsso]

Empezado por roman

La respuesta está desde mi primer mensaje.

// Saludos

Empezado por roman

Lo que puedes hacer es lanzar enviar un mensaje personalizado con PostMessage y en el manejado de dicho mensaje mandar cerrar la ventana. Busca AfterShow o CM_AFTERSHOW en los foros para ver un ejemplo de lo que digo.

Ahí tenés la solución de roman que es pasándole messages.

Empezado por BrunoBsso

Código Delphi [-]
//Form1 llama a Form4 en un OnClick de cualquier botón
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form4.Show;
end;

//Pero en vez de llamarlo podría verificar NVacio = 1 antes
procedure TForm1.Button1Click(Sender: TObject);
begin
  if NOT(NVacio = 1) then
    Form4.Show;
end;

Ahí tenés mi solución que es verificar antes de llamar al formulario.
Las dos te van a andar perfecto, parece que no las leíste.