Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ventanas delphi (https://www.clubdelphi.com/foros/showthread.php?t=71505)

yevabas 23-12-2010 16:57:50

ventanas delphi
 
Buenas tardes

No se mucho del tema ya que estoy comenzando con delphi, pero les comento tengo un Form principal en el creo un submenu y llamo otro Form2,

form2.shomodal;

este lo cierro con

procedure TReCa.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;

end;

procedure TReCa.FormDestroy(Sender: TObject);
begin
ReCa:= nil;
end;


pero cuando intento abrir de nuevo el form2 me sale un error una excepción, y no se porque cualquier ayuda se las agradezco

Feliz Navidad para todos

escafandra 23-12-2010 17:17:36

Eso es porque lo destruyes y la segunda vez lo lo creas.
Elimina : Action := caFree;

Saludos.

ecfisa 23-12-2010 17:49:31

Hola yevabas.

Primero tenemos que unificar criterios, no tiene relación la llamada form2.showmodal con TReca.FormClose y TReca.FormDestroy.

El problema te lo da el form TReca por que Delphi lo crea de forma automática al iniciar la aplicación, pero luego de destruido
en los eventos de TReca (OnClose y OnDestroy), arroja un error al intentar mostrar un Form que ya no existe.

Hacé lo siguiente:

Quitá TReca de: Project->Options->Forms->Auto-create forms.

Luego por ejemplo, llamalo de este modo:
Código Delphi [-]
uses UnitTReca;  // o el nombre que le diste a la unit del form TReca
  ...
  with TReca.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;
  ...
Llamando de ese modo al form TReca, los eventos OnClose y OnDestroy no deberían darte problemas.


Saludos.

yevabas 23-12-2010 22:59:15

gracias escafandra probé lo que me decías y funciona perfectamente...

y a ti también ecfisa, mas adelante probare lo que me dices para ver como funciona

de nuevo gracias y felices fiestas


La franja horaria es GMT +2. Ahora son las 18:21:32.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi