Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Keyboard [D6, Win2k]

Adil © (2002-11-24 08:10:00)
Salam Aleykum
Как поменят расскладку(keyboard layout (En,Ru,Tr...)) из моего программу.И как определять расскладку.
loadkeyoardlayout в windows 2000 pro не работает.
_______________

Ruf (2003-02-12 11:44:00) [1]
Прикол: только хотел писать такой же вопрос :)
Чтобы передать изменение языка всей системы:
PostMessage(HWND_BROADCAST,WM_INPUTLANGCHANGEREQUEST,0,0);

kernel::panic (2003-02-12 10:32:00) [2]
4Garret а не напишешь примерчик для отлова WM_INPUTLANGCHANGE, а то не очень получается.

Garrett (2003-01-11 16:29:00) [3]
определить переключение раскладки можно повесив хук на Send-сообщения текущему потоку и отлавливая там сообщение WM_INPUTLANGCHANGE

askanio (2002-11-27 09:55:00) [4]
Вот ещё один вариант.
В этой процедуре я переключаю раскладку при установке фокуса в определённый столбец сетки. Для переключения использую "HKL_Next" так как у меня доступно только два варианта раскладки (rus, eng).

procedure TForm3.SG1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
var
buf: array[0..8] of char;
I: Integer;
begin
GetKeyboardLayoutName(buf);
I := StrToInt(buf);
if (ACol = 1) and (I = 419) then
ActivateKeyboardLayout(HKL_NEXT, 0);
if (ACol = 2) and (I = 409) then
ActivateKeyboardLayout(HKL_NEXT, 0);
end;

Alexandr Emelin (2002-11-27 08:45:00) [5]
А как отследить переключение раскладки?

Андрей Ваганов (2002-11-24 17:47:00) [6]
Привет!
Попробуй следующий код(проверен, работает в D5):
****************************************************************
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button2: TButton;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ru,eng:HKL;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
ru:=LoadKeyboardLayout("00000419",0);
eng:=LoadKeyboardLayout("00000409",0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ActivateKeyboardLayout(ru,0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ActivateKeyboardLayout(eng,0);
end;

end.
****************************************************************
...посмотри:
1.ActivateKeyboardLayout
2.GetKeyboardLayoutName
3.UnloadKeyboardLayout
4.LoadKeyboardLayout
5.GetKeyboardLayoutList
6.GetKeyboardState
...итд всё есть в MSDN Library

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »