Dúvida

Delphi

30/05/2003

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

Curtidas 0

Respostas

Cazuza

Cazuza

30/05/2003

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


GOSTEI 0
Acst

Acst

30/05/2003

Obrigado pela atenção,

Fiz como vc orientou mas aparece o seguinte erro.

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


GOSTEI 0
Cazuza

Cazuza

30/05/2003

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


GOSTEI 0
Acst

Acst

30/05/2003

Valeuuuu
Blz obrigado


GOSTEI 0
POSTAR