Código Delphi [-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin (Sender as TEdit).ReadOnly := not (key in [#8, ' ', 'a'..'z', 'A'..'Z']); // Agregas los caracteres que necesites end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin (Sender as TEdit).ReadOnly := not (key in [#8, ' ', 'a'..'z', 'A'..'Z']); // Agregas los caracteres que necesites end;