掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IMEの変換中、KeyUpイベントをスルーするには？ (ID:43162)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
"KHE00221"さん、ありがとうございます。 理想の動きになりました、すばらしいです。 ３日間も考えずに、もう少し早く 掲示板に書き込みすればよかったです。 で、結局、ソースは下記のようになりました。 動作確認は、４個のEditで行いましたが、 実際は、３０個ぐらいあります。 イベントはすべてのEdit共通です。 var SaveKey: array [1..4] of WORD; procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Tag := 1; Edit2.Tag := 2; Edit3.Tag := 3; Edit4.Tag := 4; end; procedure TForm1.Edit1Enter(Sender: TObject); begin SetImeMode(FmxHandleToHWND(Self.Handle), imHira); end; procedure TForm1.Edit1Exit(Sender: TObject); begin SetImeMode(FmxHandleToHWND(Self.Handle), imClose); end; procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); var idx: Integer; begin idx := (Sender as TEdit).Tag; if (Key = vkReturn) then begin if (SaveKey[idx] <> 0) then begin （タブキー押下処理） end; end; SaveKey[idx] := Key; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.