|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.03.2007, 22:28 | #11 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
procedure TForm1.Button1Click(Sender: TObject);
var KlavRaskl: array [0..2] of Char; begin GetLocaleInfo( LoWord(GetKeyboardLayout(0)), LOCALE_SABBREVLANGNAME, KlavRaskl, SizeOf(KlavRaskl)); Caption := KlavRaskl; end; При нажатии на кнопку Button1 текущая раскладка будет указана в заголовке формы. Последний раз редактировалось mihali4; 21.03.2007 в 22:33. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Раскладка клавиатуры | SERG1980 | Общие вопросы Delphi | 4 | 05.07.2010 10:41 |
Перехват клавиатуры | Ferro | Общие вопросы Delphi | 3 | 25.03.2010 21:02 |
имитация клавиатуры | Var17 | Win Api | 3 | 17.06.2008 14:28 |
Раскладка | Cabal777 | Помощь студентам | 3 | 23.12.2007 15:45 |
Проверка – является ли раскладка клавиатуры правильной для вводимого текста | Xandr | Общие вопросы Delphi | 7 | 02.11.2007 09:25 |