Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #7  
Antiguo 27-04-2020
amadis amadis is offline
Miembro
 
Registrado: may 2005
Ubicación: San José, Colón, Entre Ríos, Argentina
Posts: 322
Poder: 22
amadis Va por buen camino
Hola compañeros

Tengo una duda respecto de los Form Modal.

Si creo un form de la siguiente forma
Código Delphi [-]
 
Form := TFormCreate(nil);
  try
   Form.ShowModal;
  finally Form.Free;
  end;

Luego en el evento ONCLOSE del Form ¿no debo poner Action := caFree; ? no?.
Porque lo hace en el finally?

Consulto porque siempre tenia el action en el OnClose y el Finally y no tenía problemas.

Pero ahora me sale problema de Operacion de Puntero invalido, cuando intento usar If para saber el MODAL RESULT.

Código Delphi [-]
Form := TFormCreate(nil);
  try
   if Form.ShowModal = mrok
     then showmessage('ok');
  finally Form.Free;
  end;

El error es porque estoy haciendo FREE dos veces, una en el ON CLOSE del Form y otra en el finally.

Cual sería el lugar indicado para el FREE ¿ en el finally del Try? o en el ONCLOSE del Form?
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Error al salir del preview. vpepen Impresión 11 15-03-2007 14:10:24
Error Formulario forma modal serhasae Varios 5 03-04-2006 23:52:00
Error al Salir de la Aplicación camelumi Varios 3 24-09-2004 16:12:25
Error al salir de una aplicacion el_enigma1 Conexión con bases de datos 0 05-09-2004 00:49:10
Error al salir cisterpe Varios 14 28-04-2004 19:20:04


La franja horaria es GMT +2. Ahora son las 09:20:45.


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