掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
繰り返し移動するには？ (ID:6343)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 Tab キーのシミュレートでは難しそうですね。 明示的に、次の Edit を探して SetFocus したらどうでしょうか。 名前が Edit1 から Edit15 まで順序よく付いていると仮定すると、 そのすべての OnKeyPress イベントハンドラを以下の一つのハンドラに 結びつけてやると、うまくいくようです。 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var Edit:TEdit; EditNo:integer; Compo:TComponent; begin if Key=Chr(VK_RETURN) then begin Key := #0; // キーをクリア Edit := Sender as TEdit; EditNo := StrToInt(Copy(Edit.Name,5,2)); if EditNo = 15 then EditNo := 0; Compo := FindComponent('Edit'+IntToStr(EditNo+1)); if Assigned(Compo) then (Compo as TEdit).SetFocus; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.