procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
FindNextControl(TWinControl(Sender), True, True, False).SetFocus;
end;
end;
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
'向上移
if keycode=vbkeyup then text1.setfocus
'向下移
if keycode=vbkeyreturn then text3.setfocus
End Sub