キーボードを使わずに日本語入力をするには？ (ID:17165)

名前

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

本文

こんな感じでしょうか？
フォームにButton1,2とEdit1を張りつけ、Unit1を以下と置き換えて実行してみてください。
Button1を押すとEdit1に'あ'を挿入、
Button2で変換を行います。
(ソースの一部をここの過去ログからお借りしました)
----------------------------------------------------------
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=Edit1.Text+'あ';
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  S: String;
  Imc: HIMC;
begin
  Edit1.SetFocus;
  S := Edit1.Text;
  if S = '' then Exit;
  Edit1.Clear;
  Imc := ImmGetContext(Edit1.Handle);
  ImmSetCompositionStringA(Imc, SCS_SETSTR, PChar(S),Length(S),nil,0);
//変換文字列の設定
  ImmNotifyIME(Imc, NI_COMPOSITIONSTR, CPS_CONVERT, 0); //変換実行
  ImmNotifyIME(Imc, NI_OPENCANDIDATE, 0, 0); //変換候補リスト表示
  IMMReleaseContext(Edit1.Handle, Imc);
end;

end.

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

戻る