再次显示表单时，RadioButtons 保存上次检查而不是所需的

Question

我在Form2 上有一些TRadioButtons，并使用此代码从Form1 调用Form2：

procedure TForm1.btnCallForm2Click(Sender:TObject);
begin
  Form2.RadioButton2.Checked:= true;
  Form2.ShowModal;
end;

如果用户点击btnCallForm2，将显示Form2，然后用户点击RadioButton3并关闭表单，然后再次点击btnCallForm2重新打开它。

现在Form2 再次显示，但RadioButton3 被选中而不是RadioButton2。

问：这是什么行为，是错误吗？如何设置检查我想要的RadioButton而不是用户在上一轮选择的内容？

Answer 1

这不是错误。你有这种“奇怪”行为的原因是如果 Form2 没有被销毁，那么下次它变得可见时（例如ShowModal）它会记住哪个控件具有焦点。

在您的情况下，最后一个焦点控件是 RadioButton3（因为您单击它以更改“选中”状态）。因此，即使您将“已选中”状态更改回 RadioButton2，下次激活表单时，焦点也会恢复到 RadioButton3。要恢复焦点，向控件发送WM_SETFOCUS。阅读documentation 的其余部分，了解按钮控件的默认消息处理：

WM_SETFOCUS   在获得焦点的按钮上绘制一个焦点矩形。 对于单选按钮和自动单选按钮，父窗口是 发送了BN_CLICKED 通知代码。

此BN_CLICK 通知（WM_COMMAND 消息）将单选按钮的状态设置为选中。

可以在使用键盘导航单选按钮时找到此行为背后的基本原理。当您在其中一个单选按钮上按向上/向下箭头时，将选中下一个接收焦点的单选按钮。

此行为仅适用于单选按钮，例如，尝试对另一个控件（例如复选框）进行相同操作，当它具有焦点时其状态不会改变。您会看到一切都按预期进行

正如 kobik 所建议的，一个快速简单的解决方案是在显示 Form2 之前将 ActiveControl 设置为 nil

Form2.ActiveControl := nil;

或根据文档：

Form2.ActiveControl := Form2.RadioButton2;

或者你可以破坏并重新创建表单，如下所示：

从Project->Options->Forms中的AutoCreated Forms中移除Form2，并在ButtonClick事件中手动创建

procedure TForm1.btnCallForm2Click(Sender:TObject)
begin
  Form2 := TForm2.Create(nil);
  try
    Form2.RadioButton2.Checked:= true;
    Form2.ShowModal;
  finally
    FreeAndNil(Form2);
  end;
end;