Pages

terça-feira, 7 de junho de 2011

fazendo um TEdit aceitar apenas números/letras

Para fazer o TEdit aceitar apenas letras ou apenas números coloque o seguinte código:

Aceitar apenas números:

if not (Key in['0'..'9',Chr(8)]) then
begin
Key := #0;
end;


Aceitar apenas letras:

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



begin
  Key := #0;
end;


Coloque o código no evento OnKeyPress do TEdit.

Nenhum comentário:

Postar um comentário