[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 нельзя будет вводить цифры и знаки с любой раскладкой.