Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


ghostdelvonte@mail.ru ©   (2010-11-25 17:09:00) 

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


Leonid Troyanovsky   (2010-11-26 08:20:00) [1]


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

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

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

--
Regards, LVT.


DiamondShark   (2010-11-25 19:48:00) [2]

ActivateKeyboardLayout


Юрий Зотов   (2010-11-25 17:23:00) [3]

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо