按下回車鍵后,輸入點怎樣才能移動到下一編輯框.

Question

如題

Answer 1

定义onkeypress事件
if key=#13 then
   edit2.setfocus;
这样就行了

Answer 2

edit2处使用需要获得焦点的部件即可

Answer 3

if key=#13 then Perform(WM_NEXTDLGCTL, 0, 0)

Answer 4

第一步
窗体的KeyPreview:=True;
第二步
在窗体的OnKeyDown事件里面添加
    if (key=VK_DOWN) or (key=Vk_return) then
    begin
      perform(wm_nextdlgctl,0,0);
    end//按下转跳焦点//
    else if key=vk_up then
    begin
      perform(wm_nextdlgctl,1,0);
    end;//按上转跳焦点//
    if key=Vk_escape then
      Close;
第三步，设置Tab OrderOver

Answer 5

如果很多也是這樣一個一個去KEY嗎?煩啊.
真的是民工啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1

Answer 6

定义onkeypress事件
if key=#13 then
   edit2.setfocus;定义onkeydown事件
if key=VK_DOWN then
    Edit2.setfocus; 

Answer 7

像这种问题，你应该去问问你的朋友、同事、老师等人，不用直接到这里来。第一步
窗体的KeyPreview:=True;
第二步
onkeypress 事件if key =#13 then
  keybd_event(9,0,0,0)；
输入焦点就会依次下移，只有能获得焦点的都会获得

Answer 8

哈哈，我是民工，试一试，满意就给我分啊进入一个窗体后光标自动定位到第一个edit1，
设置 edit1 的 TabOrder 的属性为 0输入完第一个edit1内容后，回车后自动进入下一个edit依次类推
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = 13 then
     Perform(WM_NEXTDLGCTL, 0, 0);
end;

Answer 9

if key=#13 then
  //此处要获得焦点的控件.setfocus;