delphi - T编辑焦点和插入符

Question

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

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

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

我更感兴趣的是翻转的效果导致某些消息不可用的已启用属性正确射击？例如edit2的OnEnter事件没有被触发。

如果重要的话，这是在 D2006 上的。

感谢您的回复。

Answer 1

我不明白您为什么禁用和启用 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 的观点。