TAcroPDF组件焦点异常：遍历PDF后无法自动聚焦TEdit组件

这种情况我之前做凭证录入系统时也碰到过——TAcroPDF这个ActiveX组件在加载文档后经常会"抢占"焦点，哪怕你直接调用edtAmount.SetFocus()，后续控件内部的消息也会把焦点抢回去。下面是几个靠谱的解决方案，按优先级排序：

1. 用PostMessage延迟设置焦点（最推荐） #

直接调用SetFocus()会被TAcroPDF后续的焦点请求覆盖，我们可以把设置焦点的操作放到消息队列的末尾，等PDF加载完成、控件的焦点操作结束后再执行：

procedure TYourForm.edtAmountKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    // 先处理金额保存、加载下一张PDF的逻辑
    SaveEnteredAmount();
    ShowNextPDF(); // 你的ShowImage函数
    
    // 用PostMessage发送焦点消息，确保在TAcroPDF的焦点操作之后执行
    PostMessage(edtAmount.Handle, WM_SETFOCUS, 0, 0);
    
    // 阻止回车触发表单的默认按钮（如果有的话）
    Key := #0;
  end;
end;

2. 利用TAcroPDF的OnDocumentComplete事件 #

当PDF文档完全加载完成后，控件会触发这个事件，这时候再设置焦点就不会被覆盖了：

procedure TYourForm.AcroPDF1DocumentComplete(Sender: TObject; const strURL: WideString);
begin
  // 这里设置焦点，此时PDF加载完成，控件不会再抢焦点
  edtAmount.SetFocus;
end;

3. 检查基础属性和表单状态 #

先排除一些低级错误：

• 确保edtAmount.Enabled = True和edtAmount.Visible = True，如果控件被禁用或隐藏，焦点肯定设置不上
• 如果你的表单不是当前激活的窗口，先激活表单再设置焦点：

  Self.Active := True;
  edtAmount.SetFocus;
  

4. 避免默认按钮干扰 #

如果你的表单上有Default = True的按钮，按下回车键会优先触发该按钮的OnClick事件，可能会打乱焦点逻辑。除了在edtAmountKeyPress里把Key设为#0，也可以临时把按钮的Default属性设为False，处理完后再恢复。

这些方法里，PostMessage的方式最稳定，因为它完全避开了TAcroPDF的焦点抢占时机，我之前处理类似场景时就是用的这个方案，效果很好。

内容的提问来源于stack exchange，提问作者Ephraim