| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Раскладка клавиатуры [D3, Win95/98]
Павел © (2002-12-15 14:20:00)Уважаемые мастера-программисты, подскажите пожалуйста, как можно программно установить английскую раскладку клавиатуры?
Vlad1 (2002-12-15 14:59:00) [1]Sorry ещё раз,
в TForm1.FormCreate(Sender:TObject);
надо добавить var LayOuts:array[0..7] of THandle
Увы,
отвлекли...
Vlad1 (2002-12-15 14:56:00) [2]Sorry,
в TForm1.FormCreate(Sender:TObject);
надо ещё добавить var LayOuts[0..7] of THandle;
Vlad1 (2002-12-15 14:52:00) [3]
procedure TForm1.FormCreate(Sender:TObject);
var ruslang,englang:THandle;
n,i;integer;
begin
ruslang:=0;englang:=0;
n:=GetKeyboardLayOutList(High(layouts)+1,layouts);
for i:=0 to n-1 do
begin
if (LoWord(LayOuts[i])and $ff)=Lang_Russian
then ruslang:=LayOuts[i];
if (LoWord(LayOuts[i])and $ff)= Lang_English then
englang:=LayOuts[i];
end;
end;
procedure Tform1.BtnRusClick(Sender:TObject);
begin
if englang<>0 then ActivateKeyBoardLayOut(englang,0);
end;
Павел (2002-12-15 14:29:00) [4]Song, Прибольшое ВАМ спасибо ! :)
Song (2002-12-15 14:23:00) [5]LoadKeyboardLayout()
ActivateKeyboardLayout()
| |
