Código Delphi [-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin Edit1.ReadOnly := not (Key in [#8, '0'..'9', 'a'..'z']); // etc... end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin Edit1.ReadOnly := not (Key in [#8, '0'..'9', 'a'..'z']); // etc... end;