[Yurk@]

У меня на форме имеется несколько TDBEdit-ов.
Можно ли каждому из них установить нужный язык клавиатуры по умолчанию, чтоб не вбирать каждый раз.
(Очень нужно)

[Winny]

Хмм... Код для обычного Edit'а работает, а для DBEdit не работает, но если что, то вот ТОЛЬКО английская раскладка для обычного Edit:

Код:

1 2 3 4 5 6 7

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin case Key of 'A'..'Z','a'..'z',#8:; else Key:=Chr(0); end;

А вот ТОЛЬКО русская раскладка для обычного Edit:

Код:

1 2 3 4 5 6 7

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin case Key of 'А'..'Я','а'..'я',#8:; else Key:=Chr(0); end;

[Yurk@]

Спасибочки!!!
Вроде работает!!!
А где можно взять Скан - коды всей клавиатуры ???

[moo2k]

Лови свою таблицу кодов.
Надеюсь на твой отзыв.

[Yurk@]

Благодарю.
Очень сильно выручил!!!

[zip000]

На заметку : с кодом Winny нельзя будет вводить цифры и знаки с любой раскладкой.

[Yurk@]

Спасибо за заметку.

Я эту проблему уже решил!!!

[The Shadow]

И буквы ё нет.

[Yurk@]

А зачем ???
Меня и "е" устраивает !

[The Shadow]

А это так. На всякий случай.

[Yurk@]

Сообщение от The Shadow

А это так. На всякий случай.

Case Key of
...
'ё' : Key:='ё';
...

Держи !!!

[Winny]

Можно в Case добавить

Код:

1	'1'..'9':;

И всё будет ОК

[4kusNick]

А если в едит с русским названием понадобится написать латинский символ?
Вообще по-хорошему, при фокусе на едите определенном, нужно менять системную раскладку у юзера, а он, если захочет, поставит обратно ту, что была.
Например:

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Edit1Enter(Sender: TObject); var   Layout: array [0.. KL_NAMELENGTH] of char; begin     GetKeyboardLayoutName(Layout);     if Layout = '00000409' then // или  Layout = '00000419', смотря какой язык нужен         ActivateKeyboardLayout(HKL_NEXT,0)   end;

[Yurk@]

!!!!! Отлична идея !!!!!
Напиши только остальные коды для раскладок (Layout)

[Yurk@]

Чё-то у меня системная раскладка пользователя не изменяется.
Может там ещё что-то нужно?