Buscar por:
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;
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;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009