Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];

Вниз

Определить раскладку   Найти похожие ветки 

 
Uran   (2002-08-13 17:20) [0]

ПОдскажите пожалуйста ,как поределить язык ввода и как его переключить программно !? Например при вводе значений в окно ввода автоматически поменять раскладку клавиатуры!?
Заранее благодарен.


 
Skier   (2002-08-13 17:39) [1]

>Uran
Могу компонент выслать...Надо ?


 
Внук   (2002-08-14 08:54) [2]

GetKeyboardLayoutName,
ActivateKeyboardLayout,
GetKeyboardLayoutList,
GetKeyboardLayout,
и макрос MAKELANGID из WinAPI, а также возможно TLanguages из VCL


 
Uran   (2002-08-14 09:12) [3]

Буду признателен за компонент! :) Заранее благодарен!


 
Mars   (2002-08-14 15:46) [4]

Эта программа при нажатии на Button1 меняет язык на следующий, при нажатии на Button2 – на русский, а на Button3 – на английский. Каждую секунду программа выводит в заголовок окна число, определяющее текущий язык.
procedure TForm1.Button1Click(Sender: TObject);
begin
ActivateKeyboardLayout(HKL_NEXT, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ActivateKeyboardLayout(LoadKeyboardLayout("00000419", 0), 0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ActivateKeyboardLayout(LoadKeyboardLayout("00000409", 0), 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
s: array [0..63] of char;
begin
GetKeyboardLayoutName(s);
Form1.Caption := s;
end;


 
Uran   (2002-08-21 11:58) [5]

Вот это вообще класс! Спасибо! :)


 
savva   (2002-08-21 16:28) [6]

http://delphibase.endimus.com/?action=viewfunc&topic=sysparams&id=10256



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.035 c
1-92562
zam2000
2002-10-15 14:32
2002.10.28
как отлавливать сообщения менеджера печати?


1-92461
Romych
2002-10-17 09:16
2002.10.28
StringGrid- или чтот похожее


14-92680
KidMan
2002-10-06 23:18
2002.10.28
Инсталяция программы, BDE и алиасы


1-92483
vlv
2002-10-18 11:05
2002.10.28
Как лучше использовать Delphi-компонент в MS Visual C++ ?


14-92648
Николай Быков
2002-10-06 16:31
2002.10.28
Хлеба и зрелищ!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский