|
Hola Roman gracias por la ayuda.
El code del form principal queda así:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := (Form3.ShowModal = mrYes);
end;
Y he quitado la programación de los botones del form3. Les he puesto en el modal result mrYes para el botón si y mrNo para el botón no. Lo he probado y cuando cierro la ventana principal con la X salta el form 3 y funcionan correctamente los dos botones. El no solo cierra el form3 y el si cierra el form3 y el form1.
Pero cuando doy al botón salir del principal form, salta el form3 (bien) y le doy al botón no y funciona correctamente, se cierra sólo el form3, pero le doy al botón si y sólo se cierra el form3 y el form principal no se cierra. En teoría tiene que cerrar los dos.
Hay algo que hago mal?
tengo que poner algo más?
Gracias otra vez.
|