como crear ventana emergente

[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