ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Sistema 0-9 / A-F [Resolvido]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
nacht21
Experiente
Experiente


Registrado: Segunda-Feira, 5 de Julho de 2010
Mensagens: 481

MensagemEnviada: Qui Jul 08, 2010 8:16 am    Assunto: Sistema 0-9 / A-F [Resolvido] Responder com Citação

Bom dia à todos!

Preciso programar no evento keypress da edit uma linha de programação que aceite caracteres do 0 á 9 e do A á F sendo que quando o usuário digitar outro valor desse não aceite na edit.

Grato desde já!


Editado pela última vez por nacht21 em Ter Jul 20, 2010 3:06 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
nacht21
Experiente
Experiente


Registrado: Segunda-Feira, 5 de Julho de 2010
Mensagens: 481

MensagemEnviada: Qui Jul 08, 2010 8:23 am    Assunto: Responder com Citação

Bom, já descobri...

Mas, fica a dica aqui...

Digite no evento Onkeypress o código

if not (Key in['0'..'1',Chr(Cool]) then Key:= #0;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
sindicley
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 14 de Junho de 2010
Mensagens: 100

MensagemEnviada: Qui Jul 08, 2010 8:32 am    Assunto: Responder com Citação

if not (key in['0'..'9','A'..'Z','a'..'z',#8,#13]) then
key:=#0;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
lucas_alves
Colaborador
Colaborador


Registrado: Domingo, 30 de Agosto de 2009
Mensagens: 1632
Localização: São Gonçalo - Rio de Janeiro

MensagemEnviada: Qui Jul 08, 2010 10:56 am    Assunto: Responder com Citação

Evento OnKeyPress do edit:

Código:

if not (UpperCase(Key)[1] in ['A'..'F', '0'..'9', #8]) then
    key:=#0;


Abraços!!!
_________________
Agora eu também programo em PHP.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail Visitar a homepage do Usuário
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB