Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

silva_123

aonde eu coloco a senha

Recommended Posts

aonde eu coloco a senha neste codigo so iniciante e como modifico agradeço a todos

 

procedure TfrmMain.EditPassKeyPress(Sender: TObject; var Key: Char);

begin
// if EditPass.Text = PassWord then btnPass.Enabled:=True else btnPass.Enabled:=False;
if (Key = #13) and (EditPass.Text <> PassWord) then begin
ShowMessage('Sua Senha é Inválida.'+ #13 + 'Tente novamente.');
EditPass.Clear;
EditPass.SetFocus;
BtnPass.Enabled:=False;
end;
end;

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.