Código Delphi [-] procedure TFrmformulario.EditKeyPress(Sender: TObject; var Key: Char); begin If Ord(Key) In [60..64,91..94,123..192, 194..200,202..204, 206..208,210,212..217,219..224, 226..232, 234..236, 238..240,242,244..249, 251..255] Then Key := #0 end;
procedure TFrmformulario.EditKeyPress(Sender: TObject; var Key: Char); begin If Ord(Key) In [60..64,91..94,123..192, 194..200,202..204, 206..208,210,212..217,219..224, 226..232, 234..236, 238..240,242,244..249, 251..255] Then Key := #0 end;