掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
繰り返し移動するには？ (ID：6340)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Edit1〜Edit15だけしかないのであれば、OnKeyPressイベントに procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char); begin if Key=Chr(VK_RETURN) then begin Key := #0; // キーをクリア keybd_event(VK_TAB, 0, 0, 0); // タブキーを押したことにする keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0); // タブキーを放したことにする end; end; を割り当てればできます。 # TabStop, TabOrderの設定が必要です もし、Edit1〜Edit15以外にコントロールが存在するなら、それらをとばす処理が必要になります。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.