Fórum Dúvida #163663
30/05/2003
0
Sou iniciante na programação em Delphi e
gostaria de receber ajuda, usei o codigo:
procedure Tsenha.okClick(Sender: TObject);
begin
if password.text=´z123´
then
form1.show
else
messagebox(0,´A senha foi digitada errada,nil,32);
password.text:=´´;
password.setfocus;
end;
tudo funciona bem, no entanto eu gostaria,
não apenas mostrar o form1 como tambem
esconder o form senha...
e quando tentei:
procedure Tsenha.okClick(Sender: TObject);
begin
if password.text=´fttacst´
then
senha.hide
form1.show
else
messagebox(0,´A senha foi digitada errada,nil,32);
password.text:=´´;
password.setfocus;
end;
apareceu um erro, gostaria de saber quem poderia
ajudar neste pequeno problema.
Obrigado antecipadamente...
Antonio Carlos
acst@bol.com.br
Acst
Curtir tópico
+ 0Posts
30/05/2003
Cazuza
procedure Tsenha.okClick(Sender: TObject);
begin
if password.text=´fttacst´ then
begin
senha.hide;
form1.show;
else
begin
messagebox(0,´A senha foi digitada errada,nil,32);
end;
password.text:=´´;
password.setfocus;
end;
Abraços
Gostei + 0
30/05/2003
Acst
Fiz como vc orientou mas aparece o seguinte erro.
[Error] PASSWORD.pas(51): ´;´ not allowed before ´ELSE´
Gostei + 0
30/05/2003
Cazuza
digite o seguinte código:
if password.text=´fttacst´ then
begin
senha.hide;
form1.show;
end
else
begin
showmessage(´A senha foi digitada errada´);
end;
ABraços
Gostei + 0
30/05/2003
Acst
Blz obrigado
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)