[Yurk@]

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

[Winny]

Хмм... Код для обычного 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;

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

Код:

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'..'9':;

И всё будет ОК

[4kusNick]

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

Код:

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@]

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