![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
На форме есть поля 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). Как сохранить первую группу служебных комбинаций? |