Принудительная раскладка языка

← →
ghostdelvonte@mail.ru (2010-11-25 17:09) [0]

Здравствуйте! У меня такое дело: скажите, как запретить в поле редактирования английский\русский языки? (К примеру при выборе перключателя, чтобы язык был или русский или английский)... заранее благодарен!

← →
Юрий Зотов © (2010-11-25 17:23) [1]

Что-то вроде этого (без учета цифр и других небуквенных знаков):

procedure Tform1.Edit1KeyPress(Sender: TObject, Key: Char);
begin
if CheckBox1.Checked <> (Key in ["a".."z", "A".."Z"]) then
Key := #0
end

← →
DiamondShark © (2010-11-25 19:48) [2]

ActivateKeyboardLayout

> ghostdelvonte@mail.ru (25.11.10 17:09)

> в поле редактирования английский\русский языки?

http://www.delphimaster.net/view/2-1192164282

--
Regards, LVT.

Принудительная раскладка языка Найти похожие ветки