Русский язык

← →
BaxTMaH © (2005-09-29 12:14) [0]

Подскажите плз как сделать чтобы при событии onEnter в компоненте Edit автоматически устанавливался русский язык?
Срочно!

← →
Grief © (2005-09-29 12:21) [1]

ActivateKeyboardLayout вроде бы. ну и LoadKeyboardLayout

← →
umbra © (2005-09-29 12:21) [2]

ActivateKeyboardLayout ?

← →
BaxTMaH © (2005-09-29 12:22) [3]

а поточнее? Как там указать что русский нужен?

← →
stone © (2005-09-29 12:25) [4]

LoadKeyboardLayout("00000419", KLF_ACTIVATE);

← →
Digitman © (2005-09-29 12:27) [5]

> BaxTMaH © (29.09.05 12:22) [3]

> Как там указать что русский нужен?

для ОС что русский что нерусский - без разницы.

ОС оперирует РАСКЛАДКАМИ КЛАВИАТУРЫ (Keyboard Layouts).

Каждая раскладка имеет свое имя, проанализировав которое ты сам сможешь принять решение, русская это раскладка или нерусская, прежде чем установить ее текущей

Еще неплохо бы запомнить текущюю раскладку и восстановить ее. См. GetKeyboardLayout.

procedure TForm1.FormShow(Sender: TObject);
var flag:boolean;
begin
LoadKeyboardLayout("00000419",KLF_ACTIVATE);
{
а это как включить CapsLock
flag := GetKeyState(VK_CAPITAL) and 1 = 0;
if flag then SimulateKeystroke(VK_CAPITAL, 0);
;-)
}
end;

Спасибо -)

Русский язык Найти похожие ветки