![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Принудительная раскладка языка [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