Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Descargar form (https://www.clubdelphi.com/foros/showthread.php?t=35298)

nachito_tuc 06-09-2006 18:21:14

Descargar form
 
Hola. El problema que tengo es que yo cierro los forms con nombreform.close, pero al llamarlo de nuevo, el formulario sigue como estaba, tengo un dbgrid y sigue con los datos que tenia, etc.
Como hago para "inicializar" el formulario de nuevo?

Saludos y gracias.

Nacho

roman 06-09-2006 18:34:10

Por defecto, cuando cierras un formulario, éste no se destruye, sólo se oculta. Para modificar este defecto utiliza el evento OnClose del formulario:

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

// Saludos

jachguate 06-09-2006 18:40:14

Cita:

Empezado por roman
Para modificar este defecto utiliza el evento OnClose del formulario

Discrepo con vos, ya que yo diría que eso es un comportamiento... no un defecto.

También añadir que luego, para mostrar el formulario tendrás que crearlo nuevamente, pues si haces solamente un Form1.Show, obtendrás un AccessViolation. Ya que el formulario se creará y destruirá dinámicamente, pues quitarlo de la lista de auto-create y crearlo siempre...

Por otro lado, si lo único que te interesa es limpiar el Grid, también podes valerte del evento OnShow, que se dispara cuando el formulario estaba oculto y se muestra, y en este, por ejemplo, cerrar el query que se muestra en el grid.

Saludos.

roman 06-09-2006 18:43:16

Je, je, veo que estás atento :)

Yo también concuerdo con eso, pero en realidad estaba jugando con las palabras. Ocultarse es el comportamiento por defecto (es decir, por default), luego entonces si se quiere otro comportamiento hay que cambiar ese defecto.

:D

// Saludos

jachguate 06-09-2006 18:56:04

Hola roman: la verdad es un buen juego de palabras... ya se cómo justificarle a mi jefe o a mi esposa cuando les resalto algún su "defecto".. :D

roman 06-09-2006 18:58:21

Cita:

Empezado por jachguate
mi jefe o a mi esposa

¿No viene a ser lo mismo?

:D :D :D

Disculpa, no me pude contener :D

// Saludos

nachito_tuc 06-09-2006 19:16:30

Gracias
 
Gracias. Creo que voy a optar por la 2da opcion, porque si tengo que volver a crearlo, etc ya se me complica y sobrepasa mis conocimientos novatos de delphi.

En visual basic yo hacia Unload(form), y luego con el show bastaba por mas que lo haya descargado. Para ocultarlo habia un método más "acertado" que se llamaba hide, pero bueno supongo q tener una oop mejor tiene sus precios.

jachguate 06-09-2006 19:29:44

Cita:

Empezado por nachito_tuc
En visual basic yo hacia

:eek: :eek: :eek: :eek:
No te preocupes ni te disculpes... todos hemos estado perdidos alguna vez :cool:

Cita:

Empezado por nachito_tuc
porque si tengo que volver a crearlo, etc ya se me complica y sobrepasa mis conocimientos novatos de delphi.

¡Animate!, cada reto te dejará expriencia y conocimiento:

Además, si solo vas a tener una instancia de Form1 creada, la cosa puede simplificarse aún mas:

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Form1 := nil;
end;

// en el formulario principal o desde donde lo invoques:

procedure TFormMain.Button1Click(Sender : TObject);
begin
  if not Assigned(Form1) then
    Form1 := TForm1.Create(Application);
  Form1.Show;
end;

Tan sencillo como eso..

jachguate 06-09-2006 19:30:35

Cita:

Empezado por roman
¿No viene a ser lo mismo?
// Saludos

¡Amigo mío!, no se en tu caso... pero en mi casa, mando yo!!!! :eek: :eek: :rolleyes:

:confused: :confused: :confused:

(espero que mi jefa no vea esto... :D:D)


La franja horaria es GMT +2. Ahora son las 16:46:21.

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