自動で半角カナ入力となるTextBox

質問

TextBoxにフォーカスがあたった場合に
自動で、半角カナになるTextBoxを作成したいのですが
そのような事はできるのでしょうか？

回答No.3

castoff · ベストアンサー

追記

http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200305/03050036.txt
は参考になりますでしょうか。

お礼

ありがとうございました。

回答No.2

castoff

Delphiは使用したことがないのですが
下記のソースは参考になりますか？

uses Imm;

procedure TForm1.Edit1Enter(Sender: TObject);
var
Imc: HIMC;
Conversion, Sentence: DWORD;
begin
Imc := ImmGetContext(Handle);
ImmGetConversionStatus(Imc, Conversion, Sentence);
ImmSetConversionStatus(Imc, Conversion, IME_SMODE_NONE);
ImmReleaseContext(Handle, Imc);
end;

回答No.1

castoff

言語が何かわかりませんが、
IMEは設定できないのですか？

補足

言語はDelphiです。
IMEで設定できるのでしょうか？