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 :$