Ничего не понимаю

← →
Вадим © (2002-01-03 16:19) [0]

Положил на форму RxRichEdit и делаю так:

function SuperPuperFunc: string;
var
Buff: array [0..KL_NAMELENGTH] of Char;
begin
GetKeyboardLayoutName(Buff);
Result := Buff;
end;

Здесь HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Keyboard Layouts сказано, что русскому языку соответствует 00000419, но когда в RxRichEdit русская раскладка, функция возвращает 00000409, что соответствует американской раскладке. Что я делаю не правильно?

← →
Vovchik (2002-01-03 19:14) [1]

Трудно сказать, что не правильно. Я пробовал то же самое, у меня всё правильно отработало. Вот только, не очень понял, что имеется ввиду "в RxRichEdit русская раскладка". Вообще, раскладка имеет смысл для процесса, а не контрола.

← →
Вадим © (2002-01-03 20:39) [2]

Ну, я это и имел в виду :). Я хотел сказать, что в RxRichEdit набор текста идет русскими буквами.

Все, разобрался.
Я ловил WM_INPUTLANGCHANGEREQUEST и сначала узнавал раскладку, а потом делал inherited, а надо наоборот.

Ничего не понимаю Найти похожие ветки