Opcion de cerrar el programa

[[maeyanes]]

Usa el evento CloseQuery de la forma principal:

Código Delphi [-]
procedure TForm_Principal.FormPrincipalCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose := PuedoSalir
end;

function TForm_Principal.PuedoSalir: Boolean;
begin
  Result := Form_Pregunta.ShowModal := mrYes
end;

Tu forma Form_Pregunta solo va a tener un boton con su propiedad ModalResult en mrYes y otro más con su ModalResult en mrNo. También podría ser mrOk y mrCancel.



Espero que te sirva...



Saludos...

[Albano]

Los botones tienen una propiedad que se llama ModalResult, es muy util en estos casos...
En la propiedad ModalResult del boton aceptar pon la opcion de mrOk, en la del boton cancelar pon mrCancel y en lugar de poner el codigo
form_salir.showmodal

pon

If form_salir.showmodal = Id_Cancel then abort

Con esto debe de quedar lo que quieres hacer.

Saludos, Dios te bendiga

[Albano]

En los procedimientos de OnClick de los botones Aceptar y Cancelar no tienes que poner nada de codigo.