Código Delphi [-] if MessageDlg('¿Salir de la aplicación?', mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then begin MessageDlg('Saliendo ...', mtInformation, [mbOk], 0, mbOk); Close; end;
if MessageDlg('¿Salir de la aplicación?', mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then begin MessageDlg('Saliendo ...', mtInformation, [mbOk], 0, mbOk); Close; end;