Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.02.20;
Скачать: 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 вся ветка

Текущий архив: 2011.02.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
15-1289338193
Юрий
2010-11-10 00:29
2011.02.20
С днем рождения ! 10 ноября 2010 среда


15-1289299836
luzer
2010-11-09 13:50
2011.02.20
Настройка печати по сети hp officejet 7000


15-1289343546
Gu
2010-11-10 01:59
2011.02.20
MKV


11-1231539544
BMouradov
2009-01-10 01:19
2011.02.20
Unzip File Time Stamp


2-1291209781
Демерго
2010-12-01 16:23
2011.02.20
Русский шрифт в Memo