Buscar

Edit aceitar apenas Letras e Números

Código

procedure TFrmLogin.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not (Key in['0'..'9','a'..'z','A'..'Z',Chr(8)]) then Key:= #0
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 29/12/10
Por: Handerson Marcacini
Visualizada: 11447 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009