Скачать: CL | DM;

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

← →
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

---

← →
Leonid Troyanovsky ©   (2010-11-26 08:20) [3]

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

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

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

--
Regards, LVT.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c