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.-
