На форме есть поля TEdit, для которых сделан ограничитель ввода знаков типа:
Код:
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if NOT (Key in ['0'..'9', ',', #8, '-']) then
Key:=#0;
end;
для того, чтобы вводить можно было только числа.
При этом перестали реботать "служебные" комбинации клавиш "копировать-вырезать-вставить" Ctrl-C-X-V соответственно, (но продолжают работать комбинации Ctrl-Ins, Ctrl-Del, Shift-Ins).
Как сохранить первую группу служебных комбинаций?