|
|
#1
|
||||
|
||||
Установка языка
У меня на форме имеется несколько TDBEdit-ов.
Можно ли каждому из них установить нужный язык клавиатуры по умолчанию, чтоб не вбирать каждый раз. (Очень нужно) |
#2
|
||||
|
||||
Хмм... Код для обычного Edit'а работает, а для DBEdit не работает, но если что, то вот ТОЛЬКО английская раскладка для обычного Edit:
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin case Key of 'A'..'Z','a'..'z',#8:; else Key:=Chr(0); end; Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin case Key of 'А'..'Я','а'..'я',#8:; else Key:=Chr(0); end; |
#3
|
||||
|
||||
Спасибочки!!!
Вроде работает!!! А где можно взять Скан - коды всей клавиатуры ??? |
#4
|
||||
|
||||
Таблица кодов
Лови свою таблицу кодов.
Надеюсь на твой отзыв. Программирование - это искусство и наш смысл жизни. |
#5
|
||||
|
||||
Благодарю.
Очень сильно выручил!!! |
#6
|
||||
|
||||
На заметку : с кодом Winny нельзя будет вводить цифры и знаки с любой раскладкой.
Не профи, но и не чайник . D6 - лучше не придумали. Пока. |