繰り返し移動するには？ (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;