Delphi 6中抛出异常后如何使TWinControl获得焦点？

原代码问题分析 #

• 冗余的try-except-raise结构：抛出异常后立即捕获，既浪费资源，还可能因异常栈导致控件变量引用异常。
• Abort无效：Abort本质是抛出EAbort异常，但你的ValidateFields未被try-except包裹，无法中断后续验证逻辑。
• 焦点设置失效：ShowMessage是模态对话框，关闭后可能因窗体激活状态、控件可用性问题导致SetFocus不生效。

修复后的代码实现 #

1. 重构ShowErrorWithFocus过程 #

procedure TfrmUserCRUD.ShowErrorWithFocus(const Message: string; FocusedField: TWinControl);
begin
  // 先验证控件是否能接收焦点
  if Assigned(FocusedField) and FocusedField.CanFocus then
  begin
    ShowMessage(Message);
    // 先激活控件所属窗体，确保焦点能正确传递
    if FocusedField.Owner is TForm then
      TForm(FocusedField.Owner).SetFocus;
    // 设置焦点到目标控件
    FocusedField.SetFocus;
    // 针对编辑框优化：选中全部内容，增强高亮提示
    if FocusedField is TEdit then
      TEdit(FocusedField).SelectAll;
  end
  else
    // 控件不可用时仅显示错误消息
    ShowMessage(Message);
end;

2. 修改ValidateFields验证逻辑 #

procedure TfrmUserCRUD.ValidateFields;
begin
  if not chkListProducts.Checked and chkUsesProductValue.Checked then
  begin
    ShowErrorWithFocus('如果要使用产品值，必须勾选产品列表。', chkListProducts);
    Exit; // 中断后续验证，避免继续检查其他字段
  end;

  if chkUsesProductValue.Checked and (edtProductValue.KeyValue = nil) then
  begin
    ShowErrorWithFocus('"产品值"字段必须填写。', edtProductValue);
    Exit;
  end;
end;

关键优化点说明 #

• 移除冗余异常逻辑：直接处理错误提示和焦点设置，避免异常带来的变量栈问题。
• 增加控件可用性检查：通过CanFocus确保控件处于可接收焦点的状态（可见、启用）。
• 窗体激活前置：先激活控件所属窗体，解决模态对话框关闭后焦点无法传递的问题。
• 控件针对性优化：对编辑框添加全选逻辑，让用户更直观看到需要修改的字段。
• 明确中断验证：用Exit替代无效的Abort，确保发现第一个错误后立即停止后续检查。

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