В сообщении:
http://forum.foxclub.ru/read.php?32,177185,177215#msg-177215
FAQ - Владимир МаксимовКак заставить клавишу с "точкой" всегда вводить точку?
приведено абсолютно правильное решение для случая ввода разделителя десятичной части числа.
Однако это решение влияет на работу не только клавиши "Точка" цифровой клавиатуры, но и на работу клавиши "Точка и Запятая" текстовой клавиатуры. Повторюсь - для текстового поля, предназначенного для ввода десятичных чисел, это абсолютно правильно.
В то же время, мне приходится работать с задачами обработки конструкторской документации, где обозначения изделий (как отечественных, так и зарубежных) могут иметь самый причудливый вид, но очень часто в соответствующее текстовое поле вводятся данные, состоящие из групп букв и цифр, разделенных точками, например "ТПВЦ78.134.4788.376-16", либо "IRC127.12". Не исключается и появление запятых. Язык ввода также меняется от случая к случаю.
Пользователю удобно всю цифровую часть такой строки вводить именно с цифровой клавиатуры. Но при этом текстовая клавиатура должна работать так, как и полагается для заданного в этот момент языка.
Поэтому, в дополнение к решению уважаемого В. Максимова, предлагаю еще одно решение задачи, поставленной следующим образом:
Если при русской раскладке клавиатуры на цифровой клавиатуре в режиме NumLock нажата клавиша с точкой, то должен быть введен именно символ "Точка", а не "Запятая".
Решение основано на том, что нажатие указанной клавиши при русской раскладке выдает код символа "запятая", но на
нижнем регистре, в то время как запятая с текстовой клавиатуры выдается на
верхнем регистре.
Итак, код события KeyPress класса Other_TextBox:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 44 .AND. nShiftAltCtrl = 0 && Если запятая на нижнем регистре
LOCAL lcBuffer
lcBuffer = REPLICATE(Chr( 0 ), 250 )
=GetKeyboardLayoutName(@lcBuffer) && Получить имя раскладки клавиатуры
IF lcBuffer = "00000419" && Если включен русский язык
NODEFAULT
KEYBOARD "." PLAIN CLEAR
ENDIF
ENDIF
Конечно, функция GetKeyboardLayoutName() должна быть предварительно определена. Где? Ну хотя бы в Init этого класса:
1.
DECLARE INTEGER GetKeyboardLayoutName IN user32 STRING @pwszKLID
Извините за многословие, но может быть это решение будет кому-нибудь интересно.
С уважением, Dinozavr.
P.S. Хотелось бы узнать мнение корифеев по этому поводу.
