como crear ventana emergente

[gio013]

olas..

como creo una ventana emergente?...
es para ponerla mediante un botón.


grax

[Jac fcc]

osea,
que deceas que al imprimir un boton aparezca la ventana?
yas has intentado algo?

bueno, podrias mostrar un formulario cada vez que oprimas el boton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
     try
        Application.CreateForm(TForm_ventanaEmergente, Form_ventanaEmergente);
        Form_ventanaEmergente.ShowModal;
     except
        Form_ventanaEmergente.Free;
     end;
end;

claro que el form_ventanaEmergente lo tendrias que tener ya creado. y este boton llamar desde un form principal

[Ñuño Martínez]

Jac fcc: creo que has tenido un despiste, en lugar de "EXCEPT" quizá debiste poner "FINALLY". De lo contrario únicamente eliminaría la ventana si se lanza una excepción, pero si todo funcionara correctamente entonces nunca la eliminaría, ocupando cada vez más memoria y generando algún que otro problema más, dependiendo de lo que haga la propia ventana.

Por otro lado, en vez de usar "Application.CreateForm" mejor, quizá, crearla diréctamente. Vamos, que yo lo haría así:

Código Delphi [-]
PROCEDURE TForm1.Button1Click (Sender: TObject);
BEGIN
     TRY
        Form_ventanaEmergente := TForm_ventanaEmergente.Create (SELF);
        Form_ventanaEmergente.ShowModal;
     FINALLY
        Form_ventanaEmergente.Free;
     END;
END;

[ecfisa]

Hola gio013.

Es correcta la acotación de Nuño.

Y se puede reducir más el código trabajando directamente con la clase:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  with TForm_ventanaEmergente.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

Además no te olvides de quitar esa ventana de la creación automática de ventanas.

Project-> Options-> AutoCreate Forms.


Saludos.

[gio013]

olas
primero gracias a todos por responder prontamente.
ecfisa el comentario tuyo me enseño algo que no sabia (en el manejo de la clase ),ciertamente ahorra codigo. muchas gracias;

ahora
olas jacc fcc no entiendo esta linea de codigo

Código Delphi [-]
        Application.CreateForm(TForm_ventanaEmergente, Form_ventanaEmergente);

lo que anda entre paréntesis a que se refiere eso.
grax por leer..

[Jac fcc]

lo que anda entre paréntesis a que se refiere eso.

a pues, asi se indica a la aplicación que se quiere crear en tiempo de ejecución dicho formulario, los parámetros corresponden al nombre del formulario y la clase respectivamente.

es similar al codigo que escribió el amigo ecfisa:

TForm_VentanaEmergente.create(self)

en cuanto al except, no es despiste, aclaro y ustedes me indican si hago mal, cada que creo un formulario;

en el evento onclose() coloco
Action:=caFree //para liberar los componentes.

y en el evento ondestroy() coloco
Form_VentanaEmergente:=nil //para liberar formulario

por eso no necesito liberar memoria en el finally, a menos que ocurra alguna excepcion en el programa entonces, si libero memoria en el except.

[ecfisa]

Hola Jac.

El problema del uso que haces de try except; es que puede enmascarar errores y eso conlleva a dolores de cabeza.
Voy a usar un ejemplo infantil, pero va a servir para el caso.

Suponé que tenemos Form2 creado desde Form1 así:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
   Application.CreateForm(TForm2,Form2);
   Form2.ShowModal;
  except
   Form2.Free;
  end;
end;

Y en el evento OnCreate del Form2:

procedure TForm2.FormCreate(Sender: TObject);
begin
  LineaQueCausaUnaExcepción; 
end;

La excepción es detectada por except en Form1, la memoria ocupada por Form2 es liberada, el form no se muestra,
seguimos en Form1, pero... ¿ que pasó? ¿ por que no se muestra Form2 ?

Hemos metido la pata hasta el cuadríl y nadie nos dice por qué.

Sucede que capturamos la excepcion antes del ciclo de mensajes.
Ya existe un try/except en el ciclo de mensajes, y se muestra con Application.ShowException, abortando el mensaje.

Esto no pasa con el uso de finally; elevándonos la excepcion y avisándonos lo que pasa.

Este ejemplo es muy trivial, pero lo cierto es que detectar un error en una aplicación grande, suele ser complicado,
aún con los mensajes de excepción.

Saludos.

[Jac fcc]

gracias ecfisa,
siempre tienes atinadas tus observaciones.

lo tomaré en cuenta