Hola gente,
Estoy teniendo problemas con lazarus, en realidad, entiendo que pueda ser algo de lo mas sencillo pero a mi no se me ocurre que mas probar. El caso es que tengo el siguiente código:
Código Delphi
[-]
procedure TryInputQuery;
var respuesta: boolean;
TextoUsuario: string;
begin
respuesta := InputQuery ('Cajón de claves.', 'Introduce la contraseña maestra.', true, TextoUsuario);
if respuesta and (TextoUsuario = 'xxxxxxx') then
begin
form3.Label1.Visible:= true;
form3.Panel1.Visible:= true;
form3.sp1.visible:= true;
form3.show
end
else
ShowMessage('Error. Contraseña no reconocible');
end;
procedure TForm3.FormActivate(Sender: TObject);
begin
TryInputQuery;
end;
La idea es que se obligue a introducir la contraseña correcta o se pulse el botón cancelar pero en lugar de eso, lo que hace es.., si se introduce la contraseña correcta deja avanzar pero si se pulsa el boton cancelar sigue mostrando el showmessage y cuando acepto ese mensaje el programa continua adelante, es decir, da acceso al listado, algo que no debe ocurrir hasta que se introduzca la clave correcta. Y no sé como solucionarlo, he pensado en un goto con su label pero no sé... creo que eso es de todo menos eficiente. ¿Alguna idea?
Un saludo.