Uno mas Formulario de Login

[[FGarcia]]

Saludos!

Este no es un Login de conexion a una BD!. Se trata que al hacer click en un elemento de menu en el formulario principal se abra una ventana que solicite una clave de acceso antes de abrir el formulario de configuracion. Con el codigo que anexo lo he podido realizar sin embargo tengo el problema de que al ingresar un valor erroneo y le hago click dos veces al boton de ok del mensaje de error se abre el formulario de configuracion, no he podido encontrar la causa, ¡se agradece la ayuda y las mejoras al codigo!

Al hacer Click en el menu

Código Delphi [-]
procedure TForm1.Ajustes1Click(Sender: TObject);
var
Respuesta : integer;
begin
  frmCfg := TfrmCfg.Create(nil); //Este es el formulario de Login
  frmCfg.ShowModal ;
  Respuesta := frmCfg.ShowModal;
  if Respuesta = mrOK then
    begin
      frmConfigura := TfrmConfigura.Create(nil); //Este es el formulario de configuracion
      try
        frmConfigura.ShowModal;
      finally
        frmConfigura.Free;
      end;
    end;
  frmCFG.Close ;
  frmCFG.Free ;
end;

Al ingresar la clave de acceso y presionar el boton de OK

Código Delphi [-]
procedure TfrmCfg.BitBtn1Click(Sender: TObject);
var
  K: string;
begin
  K := DatetoStr(Date) + 'CFG';  // dd/mm/yyyyCFG
  if edit1.Text <> '' then
    begin
      if (Edit1.Text = K) then
        frmCfg.ModalResult := mrOk
      else
        begin
          showmessage('¡Clave de acceso invalida!');
          Edit1.Text := '';
        end;
    end
  else
    ShowMessage('Debe ingresar una clave valida');
end;

¡Lo siento! Trate de editar las etiquetas para resaltar el codigo delphi pero no me salio, En la Prevista me sale bien pero al hacer el post no.

[[Lepe]]

A simple vista, veo que muestras la ventana 2 veces, por tanto la primera vez se pierde el valor de respuesta:

Código Delphi [-]
  frmCfg := TfrmCfg.Create(nil); //Este es el formulario de Login
  frmCfg.ShowModal ;                                // eliminar esta linea
  Respuesta := frmCfg.ShowModal;
  if Respuesta = mrOK then

Otra cosa: El BitBtn no tendrá su propiedad ModalResult a mrOk ¿no?, si en el inspector de objetos le tienes asignada su propiedad Kind, puede que esté interfiriendo.

Saludos

[[FGarcia]]

¡BIENVENIDO LEPE!

Ya te extrañabamos en el club, Efectivamente hice los cambios que me dijiste y funciono bien mi cuadro de contraseña. ¡Muchas Gracias!

[[Lepe]]

Gracias a tí por la calurosa Bienvenida

Saludos