Abrir form acorde a contraseña

[Demarck]

Bueno mi duda es esta:

Tengo 2 Fomularios (Form1, Form2), en el Formulario1 tengo un Edit y un Botón, y en formulario 2 no tengo nada xD !

Pero bueno la cosa es así, yo le puse una Contraseña al boton para que al Escribir esa contraseña dentro del Edit1 me salga un MessageBox que diga, "Contraseña Correcta" y me abra el Form2.

Y si la Contraseña no es Correcta que me salga un MessageBox que dia, "Contraseña Incorrecta" y que regrese al Form1 hasta que no atine la Contraseña Correcta.


Y bueno yo estuve intentando y si me sale, pero al poner una Contraseña Incorrecta si me sale ese mensaje pero se abre el Form2 y eso no quiero yo, sino que si no es la Contra que se quede en el Form1 y si es la correcta abrir el form2, eso si, ocultando el Form1.

Código Delphi [-]
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text = ('') then
messagebox(0,
PChar('Contraseña Incorrecta'),
PChar('Aviso'),
MB_OK)

else
if edit1.Text = ('Esta es la Contraseña') then
messagebox(0,
PChar('Contraseña Correcta'),
PChar('Bienvenido'),
MB_OK);
form1.Hide;
Form2.Show;
end;

Edit:

Verdad, también quier que al poner un messagebox me salga con un estilo de mensaje, osea por ejemplo un Estilo Critical ...
Si la contraseña esta mal que Diga, "Contraseña Incorrecta" pero con Estilo de Error o Critical como se llame :$

[ecfisa]

Hola Demark y bienvenido a Club Delphi.

Como a todo recién ingresado te invitamos a que leas nuestra guía de estilo. (en especial el punto 1)

Saludos.

[[ElDioni]]

Hola,

bienvenido al club.

Con respecto a lo que preguntas, si el form1 es el formulario principal de la aplicación no puedes hacerlo desaparecer a no ser que lo destruyas y pases el testigo de formulario principal al Form2, creo que es así sino ya me corregirán, te faltan los begin-end en el if y en el else y para poner iconos de advertencia, o exclamación, etc. haz lo siguiente.

Código Delphi [-]
application.messagebox('Hola','Saludo',MB_OK+MB_ICONWARNING);

MB_ICONEXCLAMATION, MB_ICONERROR, MB_ICONQUESTION son algunos de los que puedes poner.

Saludos.

[ecfisa]

Hola de nuevo.

Para que funcione tu código tendrías que salir del procedimiento si se cumple la condición Edit1.Text = '' :

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text = '' then
  begin
    messagebox(0,
      PChar('Contraseña Incorrecta'),
      PChar('Aviso'),
      MB_OK);
      Exit;  // <- Salir
  end
  else if Edit1.Text = ('Esta es la Contraseña') then
  begin
    messagebox(0,
      PChar('Contraseña Correcta'),
      PChar('Bienvenido'),
      MB_OK);
      Hide;
      Form2.Show;
  end;
end;

Aunque creo que sería mejor:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text <> 'Esta es la Contraseña' then
    messagebox(0,
      PChar('Contraseña Incorrecta'),
      PChar('Aviso'),
      MB_OK)
  else
  begin
    messagebox(0,
      PChar('Contraseña Correcta'),
      PChar('Bienvenido'),
      MB_OK);
      Hide;
      Form2.Show;
  end;
end;

Saludos.

[[Chris]]

Un punto a agregar, que creo que estaba en la Guía de Estilo pero ya no lo está: Aquí no hacemos tareas.

Sin dudarlo, creo que esta es una tarea que tienes que presentar en unas horas, por eso de tu urgencia.

No te expondré el código que solucionaría tu problema. Si lo hiciera realmente no te estuviera ayudando. Pero te voy a decir cuál es el problema porque sé que estos dolores de cabeza al iniciarte en la programación son muy molestos.

Solución: La condicional no está cumpliendo con lo esperado porque cierto código no está dentro de ella.

[Demarck]

Empezado por ecfisa

Hola Demark y bienvenido a Club Delphi.

Como a todo recién ingresado te invitamos a que leas nuestra . (en especial el punto 1)

Saludos.

Disculpa, como sabes soy nuevo y no sabía, si pudeses cambiar el Nombre a uno más Específico ya que yo no se que título poner te lo agradecería.

Empezado por ElDioni

Hola,

bienvenido al club.

Con respecto a lo que preguntas, si el form1 es el formulario principal de la aplicación no puedes hacerlo desaparecer a no ser que lo destruyas y pases el testigo de formulario principal al Form2, creo que es así sino ya me corregirán, te faltan los begin-end en el if y en el else y para poner iconos de advertencia, o exclamación, etc. haz lo siguiente.

Código Delphi [-]
application.messagebox('Hola','Saludo',MB_OK+MB_ICONWARNING);

MB_ICONEXCLAMATION, MB_ICONERROR, MB_ICONQUESTION son algunos de los que puedes poner.

Saludos.

Bueno el Form1 si es el Principal, y no lo quiero desaparecer, sólo Ocultarlo con el "hide;" y por el otro lado de que me faltan begin-end, no falta nada ya que si pongo eso me salta errores.

[[Chris]]

Empezado por Demarck

Verdad, también quier que al poner un messagebox me salga con un estilo de mensaje, osea por ejemplo un Estilo Critical ...
Si la contraseña esta mal que Diga, "Contraseña Incorrecta" pero con Estilo de Error o Critical como se llame :$

A menos que un tonto profesor te lo halla pedido, una contraseña incorrecta no es un error ni mucho menos representa un estado crítico. De hecho, pocas cosas son críticas en el mundo virtual. Mi consejo: Si vas a utilizar un icono, utiliza el de información para este caso. Por estas malas prácticas es que después dicen que los programadores no sabemos de usabilidad.

[Demarck]

Empezado por ecfisa

Hola de nuevo.

Para que funcione tu código tendrías que salir del procedimiento si se cumple la condición Edit1.Text = '' :

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text = '' then
  begin
    messagebox(0,
      PChar('Contraseña Incorrecta'),
      PChar('Aviso'),
      MB_OK);
      Exit;  // <- Salir
  end
  else if Edit1.Text = ('Esta es la Contraseña') then
  begin
    messagebox(0,
      PChar('Contraseña Correcta'),
      PChar('Bienvenido'),
      MB_OK);
      Hide;
      Form2.Show;
  end;
end;

Aunque creo que sería mejor:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text <> 'Esta es la Contraseña' then
    messagebox(0,
      PChar('Contraseña Incorrecta'),
      PChar('Aviso'),
      MB_OK)
  else
  begin
    messagebox(0,
      PChar('Contraseña Correcta'),
      PChar('Bienvenido'),
      MB_OK);
      Hide;
      Form2.Show;
  end;
end;

Saludos.

Exacto justo lo que buscaba, muchas Gracias

Empezado por Chris

Un punto a agregar, que creo que estaba en la Guía de Estilo pero ya no lo está: Aquí no hacemos tareas.

Sin dudarlo, creo que esta es una tarea que tienes que presentar en unas horas, por eso de tu urgencia.

No te expondré el código que solucionaría tu problema. Si lo hiciera realmente no te estuviera ayudando. Pero te voy a decir cuál es el problema porque sé que estos dolores de cabeza al iniciarte en la programación son muy molestos.

Solución: La condicional no está cumpliendo con lo esperado porque cierto código no está dentro de ella.

Bueno puse de suma urgencia porque estoy empleando un proyecto y ese error me lleva desde hace 2 días y dentro de un rato tengo que ir a Estudiar y no era para un trabajo, ya que no estudio Programación.

[[egostar]]

Empezado por Chris

A menos que un tonto profesor te lo halla pedido, una contraseña incorrecta no es un error ni mucho menos representa un estado crítico. De hecho, pocas cosas son críticas en el mundo virtual. Mi consejo: Si vas a utilizar un icono, utiliza el de información para este caso. Por estas malas prácticas es que después dicen que los programadores no sabemos de usabilidad.

Coincido con tu comentario amigo Chris, es más yo sostengo que en sistemas no hay errores, sólo requerimientos incompletos

Saludos

[Demarck]

Empezado por Chris

A menos que un tonto profesor te lo halla pedido, una contraseña incorrecta no es un error ni mucho menos representa un estado crítico. De hecho, pocas cosas son críticas en el mundo virtual. Mi consejo: Si vas a utilizar un icono, utiliza el de información para este caso. Por estas malas prácticas es que después dicen que los programadores no sabemos de usabilidad.

Bueno como te digo, no estudio progamación por ende ningún "Profesor" me ha pedido nada, y si lees bien
yo puse que me salga un Estilo de mensaje por ejemplo estilo de Error.

[[Chris]]

Empezado por Demarck

Bueno como te digo, no estudio progamación por ende ningún "Profesor" me ha pedido nada, y si lees bien
yo puse que me salga un Estilo de mensaje por ejemplo estilo de Error.

No, no te ofendas compañero. Me imaginé que estabas empezando en esto por el problema que planteaste y por el código sin identación que compartiste. Además de ser tu primer mensaje. Pero bueno, bien dicen que todo no es lo que parece

Según leí bien, querías mostrar el mensaje junto a un icono de error o icono crítico. Es por eso que te sugerí que evitarás hacer esto porque una contraseña incorrecta no es un error ni algo crítico. Es simplemente, una contraseña incorrecta.

Saludos!

[[ElDioni]]

Empezado por Demarck

Bueno el Form1 si es el Principal, y no lo quiero desaparecer, sólo Ocultarlo con el "hide;" y por el otro lado de que me faltan begin-end, no falta nada ya que si pongo eso me salta errores.

Si te fijas en el código que has cogido de ecfisa y que dices que te funciona, verás que si que tienen los begin y los end en las condiciones del if y del else que son los que yo te indicaba que te faltaban en tu código, no se porque dices que te daban error si los ponías.

Saludos.