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

Acst

Responder

Posts

30/05/2003

Cazuza

Olá Altere seu código para:

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


Responder

Gostei + 0

30/05/2003

Acst

Obrigado pela atenção,

Fiz como vc orientou mas aparece o seguinte erro.

[Error] PASSWORD.pas(51): ´;´ not allowed before ´ELSE´


Responder

Gostei + 0

30/05/2003

Cazuza

Olá, desculpe pela falta de atenção.

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


Responder

Gostei + 0

30/05/2003

Acst

Valeuuuu
Blz obrigado


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar