unit omYomiOutUnit;

interface

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

type
  TForm1 = class(TForm)
    plKanaEdit1: TplKanaEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormShow(Sender: TObject);
    procedure plKanaEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  Formを表示したら各コントロールのテキストはクリア
//  読みがな文字列の出力先はEdit1
//=============================================================================
procedure TForm1.FormShow(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';

  Edit1.ImeMode := imKata;   //imHiraにすればひらがなで出力される
  Edit2.ImeMode := imHira;

  plKanaEdit1.OutputEdit := Edit1;
  plKanaEdit1.OutputMode := omYomiOut;

  plKanaEdit1.Text := '';
end;

//=============================================================================
//  [Enter]キー押下の処理
//  次の[Tab]順序のコントロールにフォーカス移動
//  このFormのコントロールのOnKeyDown共用イベント
//=============================================================================
procedure TForm1.plKanaEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then begin
    keybd_event( VK_TAB, MapVirtualKey(VK_TAB, 0), 0 , 0 );
    keybd_event( VK_TAB, MapVirtualKey(VK_TAB, 0), KEYEVENTF_KEYUP , 0);
  end;
end;

end.