Otro de Login y Pass

[dec]

Hola,

Bueno. A bote pronto se me hace raro el siguiente código fuente:

Código Delphi [-]
procedure TfrmLogin.bbCancelClick(Sender: TObject);
begin
  If ModalResult <> mrOk Then
    close;
end;

El botón cancelar creo yo ni siquiera debería "hacer nada". Bastaría que su propiedad "ModalResult" valiera "mrCancel" para que cuando ese botón fuera pulsado la propiedad "ModalResult" del formulario que lo contiene pasara a valer "mrCancel", cerrando de paso el formulario.

Además la propia condición se me hace extraña: "Si ModalResult es distinto de mrOk, cierra el formulario"... no sé ahora mismo decir porqué, pero, ha llamado mi atención esa condición... En todo caso ya digo que el evento "OnClick" de ese botón puede omitirse.

Otra condición que llama mi atención es:

Código Delphi [-]
if (nIntentos < 3) then
 {...}

¿No debería ser al revés? Es decir, si se llevan más de 3 intentos... pero, no menos, ¿no? Bueno. A primera vista esto es lo que noto en el código fuente. Ya comentarás tú o alguien más lo que queráis.

[[FGarcia]]

Dec tu comentario del bbCancel me resolvio el problema! En el boton bbOk que es del tipo bitbutton la propiedad ModalResult la tenia en mrOK, la puse en mrNone y todo ok. En cuanto a lo del nIntentos < 3 mmmm.... de cualquier modo funciona, solo que aqui hago que al tercer intento la aplicacion se cierre, si lo hago nIntentos > 3 la aplicacion se cierra al cuarto intento, lo otro seria nIntentos > 2.

Se aceptan comentarios de todos modos