по въпрос едно.... ползвай функция за смяна на азбуките....

procedure TDM1.TurnKeyboardLayout(wLangID: word);

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

TurnKeyboardLayout(LANG_SYSTEM_DEFAULT);

или

ActivateKeyboardLayout(HKL_PREV, 0);

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