Question

delphi 想让edit失去焦点，设置form的onclick事件也没用

 procedure TForm1.Edit1Exit(Sender: TObject);var  i:integer;  str,str1:string;begin  str:=edit1.text;  if str[1]=' ' then str:=copy(str,2,length(str)-1)  else  begin    i:=2;    while i<=length(str) do    begin      if str[i]=' ' then      begin        str1:=copy(str,1,i-1);        str:=str1+copy(str,i+1,length(str)-i);        dec(i);      end;      inc(i);    end;  end;  edit1.Text:=str;end;procedure TForm1.FormClick(Sender: TObject);begin  form1.SetFocus;end;

Answer 1

1.在窗口上点右键，有个tab order可以改变窗口上的tab顺序
2.button上其实也可以实现的，我觉得你可以这样试试。你的主要目的是按回车后直接tab到下一个控件，可以在当前控件比如说你有一个Edit1，在edit1的onkeypress事件下写：
if Key=13（或者按你上面的写）then button1.setfocus(); (button1是你想tab到的下一个控件，根据需要可改)。
你想在button上用空格来代替enter也可以在keypress下写 ifkey=空格then button.click（）
3.和2一样，用setfocus同样可实现

哦，对了button上空格好像本来就和回车一样的。。。

Answer 2

1.在窗口上点右键，有个tab order可以改变窗口上的tab顺序
2.button上其实也可以实现的，我觉得你可以这样试试。你的主要目的是按回车后直接tab到下一个控件，可以在当前控件比如说你有一个Edit1，在edit1的onkeypress事件下写：
if Key=13（或者按你上面的写）then button1.setfocus(); (button1是你想tab到的下一个控件，根据需要可改)。
你想在button上用空格来代替enter也可以在keypress下写 ifkey=空格then button.click（）
3.和2一样，用setfocus同样可实现

哦，对了button上空格好像本来就和回车一样的。。。

Answer 3

你需要另一个控件来得到焦点即可，如果你的界面上只有edit1，没有其他可以用鼠标操作的控件，那个程序的焦点永远都在edit上

Answer 4

edit1的onEnter获得焦点事件，onExit失去焦点事件。