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 的观点。

Answer 2

我严重怀疑你正在以错误的方式做某事，最好的解决方案很可能是重新设计。您不应该在控件接收焦点时禁用然后启用该控件。

Answer 3

禁用和启用 edit2 之间有一堆代码。

在前一个活动控件的 OnExit 事件处理程序中包含大量代码不需要需要禁用下一个活动控件。该代码将在下一个活动控件显示插入符号之前执行，并且能够接收用户输入。只需确保它不会通过启动新线程或使用 Application.ProcessMessages 之类的方式传递执行即可。

将 Screen.Cursor 设置为 crHourGlass 以使用户清楚地知道下一个活动控件尚未准备好。

Answer 4

当 MainForm 的 OnActive 激活另一个表单时发现问题。

TMainForm.OnActivate;
begin
ChildForm.ShowModal;
end;

控制焦点已设置但不起作用。我发现的解决方法是发送 PostMessage(Handle, WM_SETFOCUS, 0, 0);到表单句柄。

procedure TChildForm.FocusControl(AWinControl: TWinControl);
begin
  try
    // http://stackoverflow.com/questions/7305296/tedit-focus-caret
    PostMessage(Handle, WM_SETFOCUS, 0, 0);
    PostMessage(AWinControl.Handle, WM_SETFOCUS, 0, 0); 
    if AWinControl.CanFocus then
       AWinControl.SetFocus;
  except
    on E: Exception do
    begin
      Error(Self, E);
    end;
  end;
end;