аз първоначално задавам Бг клавиатурата с

TurnKeyboardLayout(LANG_BULGARIAN);

а след това сменям следващ език ако трябва с:
ActivateKeyboardLayout(HKL_PREV, 0);

самата процедура е

procedure TurnKeyboardLayout(wLangID: word);

function sMAKELANGID(wPrLangID: word): word;
begin
result := wPrLangID or (SUBLANG_DEFAULT shl 10);
end;
begin
ActivateKeyboardLayout(sMAKELANGID(wLangID), 0);
end;

Съдържаниет е скрито
Влезте за да го видите