Controlar Caracteres em uma caixa de texto
Como eu faco para uma caixa de texto so aceitar que eu digite numeros nela? E como eu faco para que em outra caixa de texto o texto fique sempre com letras maiusculas?
Neoramza
Curtidas 0
Respostas
Wcprog
30/05/2003
coloque no evento KeyPress do Edit:
begin
if Not (Key in[´1´..´9´,#8]) then
Key := 0;
end;
Para o outro caso é simples:
O Componente Edit possui uma propriedade Chamada CharCase onde
ecUpperCase -> Texto em Maiusculu
ecLowerCase -> Texto em Minusculu
ecNoraml -> Texto Normal
begin
if Not (Key in[´1´..´9´,#8]) then
Key := 0;
end;
Para o outro caso é simples:
O Componente Edit possui uma propriedade Chamada CharCase onde
ecUpperCase -> Texto em Maiusculu
ecLowerCase -> Texto em Minusculu
ecNoraml -> Texto Normal
GOSTEI 0