silva_123 0 Denunciar post Postado Novembro 20, 2015 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
KhaosDoctor 242 Denunciar post Postado Novembro 20, 2015 Que senha? Compartilhar este post Link para o post Compartilhar em outros sites