Entrar Apenas Com Numeros

[Pu££3y]

Ai Galera Como faço que um "Edit" Receba apenas Numeros....

alem dos caracteres "Enter" "," "TAB" "."

URGENTE!!!!... Flwsss Galera Abraçossss... :o

[Pu££3y]

Ai Galera Como faço que um "Edit" Receba apenas Numeros....

alem dos caracteres "Enter" "," "TAB" "."

URGENTE!!!!... Flwsss Galera Abraçossss... :o

Ahi galera Descobrii Fica assim...

procedure TFORM1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if (Key in ['0'..'9',#13,'.',',']) then

begin

end

else

Key := #0;

end;

Agora não Me Lembro Qual o Caracter Representa o Backspace e o Delete se alguém Souber Responde Ahi beleza...... Valeuuu

[Churc]

Backspace #8

Del #46

mas é mais fácil você colocar

Chr(VK_NOMETECLA) onde nas constantes VK_ contém o código ASCII de cada

tecla, você também pode usar pra saber o número e assim usar com # como você está fazendo...

exemplo usando VK_

procedure TFORM1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['0'..'9','.',',',Chr(VK_RETURN), Chr(VK_BACK), Chr(VK_DELETE)]) then
begin
end
else
Key := #0;
end;

facilita :)