Форум: "Основная";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];
ВнизКак программно поменять раскладки клавы с англ. на русскую ... Найти похожие ветки
← →
Muhan_ (2006-03-25 21:55) [0]1. Надо поменять с англ. на русскую и обратно..
2. Надо знать какая щас включена
Нигде не нашел..должно быть просто )ъ
Спасибо.
← →
Muhan_ (2006-03-26 01:19) [1]Никто не знает?
← →
Чудак (2006-03-26 04:19) [2]var
russian, latin: HKL;
russian := LoadKeyboardLayout("00000419", 0);
latin := LoadKeyboardLayout("00000409", 0);
SetActiveKeyboardLayout(russian);
← →
Muhan_ (2006-03-26 18:33) [3]1. SetActiveKeyboardLayout(russian);
вот это воспринимать не хочет... ((
2. и еще как узнать какая щас раскладска стоит?
← →
Muhan_ (2006-03-26 18:34) [4]1. SetActiveKeyboardLayout(russian);
вот это воспринимать не хочет... (( пишет что неизвестная переменная(процедура)
2. и еще как узнать какая щас раскладска стоит?
← →
Чудак (2006-03-26 21:58) [5]ActivateKeyboardLayout(russian, 0);
← →
Чудак (2006-03-26 22:03) [6]
> Muhan_ (26.03.06 18:34) [4]
>
> 2. и еще как узнать какая щас раскладска стоит?
GetKeyboardLayoutName()
← →
Чудак (2006-03-26 22:32) [7]
procedure TForm1.Button1Click(Sender: TObject);
var
russian, latin: HKL;
begin
russian := LoadKeyboardLayout("00000419", 0);
latin := LoadKeyboardLayout("00000409", 0);
if GetKeyBoardLayout(0) = russian then
ActivateKeyboardLayout(latin,0)
else
ActivateKeyboardLayout(russian,0);
end;
← →
Muhan_ (2006-03-27 01:29) [8]супер спасибо!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c