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




Вниз

Переключиться Eng - Rus 


dim2001   (2002-01-26 16:20) [0]

Подскажите как програмно переключить клавиатуру с русского на английский и обратно? СПАСИБО.



copyr25   (2002-01-26 16:23) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
LoadKeyboardLayout("00000409", KLF_ACTIVATE); // English
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
LoadKeyboardLayout("00000419", KLF_ACTIVATE); // Russian
end;



dim2001   (2002-01-27 15:51) [2]

Спасибо !!!
А как узнать в каком состоянии она сейчас находится ?



Pat   (2002-01-27 17:03) [3]

GetKeyboardLayoutName()




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




Наверх





Память: 0.72 MB
Время: 0.041 c
1-69881           UDS                   2002-04-07 20:38  2002.04.22  
Можно ли просто отцентрировать текст в EDIT?


3-69735           Ежик                  2002-04-01 13:30  2002.04.22  
Как програмно посчитать кол-во записей в БД?


1-69893           ymin                  2002-04-09 12:21  2002.04.22  
А как сделать, чтобы форма была или на весь экран или Minimize?


4-70076           Ewgenij               2002-02-18 00:15  2002.04.22  
Как обработать появление окна при его создании?


7-70037           Traitor               2002-01-27 12:56  2002.04.22  
Где Windows XP хранит пароли ? *.pwl там отсутствует.