Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 24-05-2005
gontxalo gontxalo is offline
Miembro
 
Registrado: may 2005
Posts: 99
Poder: 22
gontxalo Va por buen camino
CloseQuery

Hola Roman. Prefiero hacerlo con otro form que lleva iconos y logotipo.
En el Form 1, en evento doy doble click en CloseQuery. Me sale en el code:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Form3.ShowModal;
end;

Después del begin pongo Form3.ShowModal; Está bien?

En el form principal tengo varios botones y uno de ellos es salir. Cuando doy al botón llamo al Form3 que es el mismo que llamo con el CLoseQuery dando a cerrar (x) de la ventana principal. Funciona. De las dos maneras sale el Form3.

En el Form3 tengo los botones de si y no. Primero estoy haciendo el no. code:

procedure TForm3.Button2Click(Sender: TObject);
begin
Close;
end;

He puesto close; está bien?

Lo que tiene que hacer el form3, boton de no, es cerrar solo el form3. Cuando el Form3 se abre desde el botón de salida del form principal, funciona, se cierra sólo el Form3. Pero si el form3 se abre por darle a la (X) cerrar del Form principal, al darle al botón de no del Form3 se cierra el form3 y el form principal, los dos, y tendría que cerrarse sólo el form3.
Que hago mal?

Gracias.-
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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


La franja horaria es GMT +2. Ahora son las 22:06:33.


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