如果实现光标一直停留在一个输入框？

Question

要求实现：
窗口打开和选择其他控件后，光标一直停留在一个文本框中，可随时输入

Answer 1

问题问的太模糊了，定位光标很难吗？ edit1.setfoucs

Answer 2

看来只有每次改变焦点（eg.选择其他控件）后，再将焦点设置回你的输入框edit1.setfoucs关注！！

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
 Screen.OnActiveControlChange :=Onchange;
end;procedure TForm1.Onchange(Sender: TObject);
begin
    Edit1.SetFocus;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Screen.OnActiveControlChange := nil;
end;

Answer 4

我也知道
Edit1.SetFocus; 
的方法，但这要每的控件都要做一次，会比较麻烦，是否会有更简单有方法

Answer 5

得到焦点  Edit1.SetFocus;