タッチ操作用ソフトキーボード（カナ漢字変換）を作成するには (ID:41908)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんにちは，Mr.XRAYです．

IMEの漢字変換で，TListBoxに候補の漢字を表示するサンプルです．

コードの通りで，以下の手順に実行します．
，
(1) 新規プロジェクトに，TEditとTListboxを１つづつ配置
(2) Edit1のサブクラス化関数を定義して，Form1のOnCreateイベントで指定
(3) Edit1にフォーカスを移動し，何か入寮して，[変換]キーを押す．

ただし，このままですと，ListBoxにフォーカス移動すると，
少々不可思議な挙動となります．
MN_CHANGECANDIDATEメッセージも処理した方がいいと思われます．

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    OriginalProc : TWndMethod;
    procedure ControlSubclassProc(var Msg:TMessage);
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses IMM;

{$R *.DFM}

//=============================================================================
//  IMEの変換候補のウィンドウを表示するかわりに，TListBoxに候補リストを表示
//
//  選択候補を取得するにはImmGetCandidateList関数を使用する
//  これは，IMEが選択候補ウィンドウを開いた時，これはWM_IME_NOTIFYメッセージで
//  wParam値がIMN_OPENCANDIDATE の時になる
//  ここでは，Edit1の漢字入力の際にこの動作を行う
//  TApplcationEventsを使用してもよいが，Edit1専用とするために，Edit1のサブクラ
//  ス化関数で対応
//
//  選択した候補は，IMN_CHANGECANDIDATEメッセージの時に，ImmGetCandidateList
//  で取得できる．この処理も必要だろう
//
//  動作確認環境
//  Windows XP(SP3) + Delphi 2007 Pro + Delphi XE
//  Microsoft Office IME 2007
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  OriginalProc     := Edit1.WindowProc;
  Edit1.WindowProc := ControlSubclassProc;

SetImeMode(Edit1.Handle, imHira);
end;

//-----------------------------------------------------------------------------
//  Edit1のサブクラス関数
//-----------------------------------------------------------------------------
procedure TForm1.ControlSubclassProc(var Msg: TMessage);
var
  IMC        : HIMC;
  dwSize     : Cardinal;
  CandiList  : PCandidateList;
  hImWnd     : Cardinal;
  i          : Integer;
  StrText    : String;
begin
  if Msg.Msg = WM_IME_NOTIFY then begin

if Msg.WParam = IMN_OPENCANDIDATE then begin
      Form1.ListBox1.Clear;
      IMC := ImmGetContext(Edit1.Handle);

//ImmGetCandidateList関数の処理に必要なサイズを取得
      dwSize := ImmGetCandidateList(IMC, 0, nil, 0);

hImWnd := GlobalAlloc(GHND, dwSize);
      try
        //PCandidateListレコード型(構造体)のポインタを取得
        //GetMem(CandiList, dwSize); と FreeMem(CandiList);の組み合わせでもOK
        CandiList := GlobalLock(hImWnd);
        try
          //候補リストを作成
          ImmGetCandidateList(IMC, 0, CandiList, dwSize);

//順番に取出していく
          for i := 1 to CandiList.dwCount do begin

//CandiList.dwOffset[i]にi番目の文字列のオフセット値が入っている
             //そのため，構造体の先頭アドレスのポインタを加算
             StrText := PChar(Integer(CandiList) + CandiList.dwOffset[i]);

//表示する
             Form1.ListBox1.Items.Add(IntToStr(i) + '.  ' + StrText);
          end;
          //IMEの候補ウィンドウは表示しない
          //Msg.Result := 0;
          //exit;
        finally
          //FreeMem(CandiList);
        end;
      finally
        ImmReleaseContext(Edit1.Handle, IMC);
        GlobalUnlock(hImWnd);
      end;
    end;
  end;

OriginalProc(Msg);
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る