掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Edit を自動移動するには？ (ID：4996)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これにはいろいなコードが考えられます．その一つ.. Edit1のOnKeyDownとOnKeyPressイベントに以下のコードを書きます． procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin inherited; if Key=VK_RETURN then begin {次のタブ順序のコントロールにフォーカスを移動} SelectNext(ActiveControl, True,True); end; Key:=0; end; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (Ord(Key)=VK_RETURN) then Key:=Chr(0) else inherited; end; 次にEdit2のオブジェクトインスペクタのイベントのタブのOnKeyDown,OnKeyPressの各リストから，既に作成した上の2つのイベント を選択します．これをEdit10まで繰り返します． 他の参考コードは他の方のレスをお待ち下さい．
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.