Fórum Digitar somente Letras! #218203

04/03/2004

0

Delphi

Olá,


01) Como faço para permitir somente a digitação de letras no Edit?

02) Como faço para permitir somente a digitação de Números no Edit?



Atenciosamente


Motuca.


Motuca

Motuca

Responder

Posts

04/03/2004

Joilson_gouveia

Use o evento onKeyPress, digitando o código abaixo:

-Só para Letras/Sinais:

if Pos(chr(key),´0123456789)>0 then
Key := #0;

-Só para Números:
if Pos(chr(key),´0123456789)=0 then
Key := 0;


Responder

Gostei + 0

04/03/2004

Fabio.hc

Tente assim:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not(key in [´A´..´Z´,´a´..´z´]) then
      Key:=0;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
   if not(key in [´0´..´9´]) then
      Key:=0;
end;



Responder

Gostei + 0

04/03/2004

Motuca

Muito obrigado!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar