delphi - TEdit焦点和插入号

我有两个TEdit控件。当我退出edit1时，
edit2获得焦点。在我的Edit1的OnExit事件上
我有以下代码:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  edit2.Enabled := false;
  edit2.Enabled := true;
  edit2.setfocus;
end;

Edit2具有焦点。但是，其中没有插入符号。
我可以开始打字了，但是我不知道这很令人困惑
哪个控件具有焦点。

我对翻转的内容更感兴趣
启用属性导致某些消息无法发送
射击正确吗？例如edit2的OnEnter事件
没有被触发。

如果有任何关系，请在D2006上进行。

谢谢回复。

最佳答案

我不明白为什么要禁用和启用edit2，但是您可以这样做:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  edit2.Enabled := false;
  edit2.Enabled := true;
  edit2.setfocus;
  PostMessage(edit2.Handle, WM_SETFOCUS, 0, 0);
end;

顺便说一句，我同意安德烈亚斯·雷布兰德(Andreas Rejbrand)的观点。