Вопрос

На альтернативной цифровой клавиатуре (правая часть клавиатуры под клавишей NumLock) есть клавиша с "точкой". Однако она водит именно точку только при английской раскладке клавиатуры, а при русской раскладке клавиатуры вводит запятую. При вводе чисел с дробной частью это создает проблемы. Как можно заставить вводить символ точки вне зависимости от текущей раскладки клавиатуры?

Ответ

В событии KeyPress для Вашего объекта TextBox пишете такой код

  
  LPARAMETERS nKeyCode, nShiftAltCtrl  
  IF InList(CHR(nKeyCode),'.',',') AND CHR(nKeyCode)<>SET('POINT')  
  	NODEFAULT  
  	DoDefault(ASC(SET('POINT')),nShiftAltCtrl)  
    
 	*!* или вместо DoDefault в данном случае можно дать такую команду  
 	*!* KeyBoard SET('POINT') PLAIN CLEAR  
  ENDIF

Все. Теперь при попытке ввода точки или запятой будет автоматически введен символ, который Вы приняли в качестве разделителя целой и дробной части. Даже если это, например, дефис.

Для удобства работы, лучше создать отдельный класс на основе TextBox с данным кодом, чтобы не дублировать его каждый раз при создании нового объекта.



Исправлено: Владимир Максимов, 04.12.06 11:06