keypress

Delphi

13/05/2003

ola pessoal,

Alguém pode corrigir minha linha de comando.

if key not in [0..9,´,´] then begin
end

Estou tentando limitar o usuário a digitar apenas números na caixa de texto.

obrigado


Savio

Savio

Curtidas 0

Respostas

Albertoparaizo

Albertoparaizo

13/05/2003

Use o código asc colocando # + o ascII:

Por exemplo limitar a entrada para somente numeros e backspace

no key press do objeto:

if not(Key in [48..57,8]) then key:=0;


GOSTEI 0
Savio

Savio

13/05/2003

Use o código asc colocando # + o ascII: Por exemplo limitar a entrada para somente numeros e backspace no key press do objeto: if not(Key in [48..57,8]) then key:=0;



alberto obrigado pela resposta.

mais ainda esta dando erro. ´key´

no key.......


GOSTEI 0
Savio

Savio

13/05/2003

Use o código asc colocando # + o ascII: Por exemplo limitar a entrada para somente numeros e backspace no key press do objeto: if not(Key in [48..57,8]) then key:=0;



desculpa alberto....

eu que errei agora esta funcionando corretamente.

nao leva a mau ainda so estagiario...

rsrsrs


GOSTEI 0
Andcarpi

Andcarpi

13/05/2003

ponha no if do not key in assim:

if key......
begin

[b:78ef7a7bbf]abort;[/b:78ef7a7bbf]

end;


GOSTEI 0
POSTAR