如何用键盘的回车键实现鼠标光标从控件Edit1直接跳到控件Edit3,中间隔了控件Edit2?既在Edit1写好数据后直接敲击回车键,光标就直接跳到Edit3,而不会跳到中间的Edit2。

解决方案 »

  1.   

    在Edit1的OnKeyPress中寫入如下事件:
    if Key = #13 then
    begin
      Key := #0;
      Edit3.SetFocus;
    end;
      

  2.   

    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then  Edit3.Setfocus
    end;
      

  3.   

    KeyDown中:
    if (key=13) then 
       Begin 
          key:=0;
          Edit3.SetFocus;
       end;
      

  4.   

    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
     if (key=#13) then  #13是回车键的ASCII码;
       begin
        key:=#0;  #0代表当触发键盘事件的时候屏蔽其输入的字符,这个可以在多行文本控件中得到证实
        Edit3.SetFocus;
       end;
    end;