Delphi：TRadioButton的TabStop问题

Question

当 TRadioButton 的 TabStop=True 时，它​​的行为非常奇怪。

如果您尝试使用 Tab 键在表单上的多个单选按钮之间切换焦点，则每个应用程序会话只需执行 1 次。制表是单向的，永远不会返回到第一个单选按钮。此外，当焦点移过单选按钮时，它们会自动“选中”。

可以在不创建我自己的组件的情况下修复此行为吗？

我希望标准单选按钮

1. 循环切换焦点，
2. 防止单选按钮在焦点进入时进行检查（我希望我的用户使用空格键检查它们）

Answer 1

据我所知，您正在使用现有代码，这是现实世界的限制，在这些论坛中经常被忽视。

在我看来，复选框更适合你。您可以在 OnChecked 事件中强制执行通常期望的 RadioButton 的排他性。这应该可以解决您的选项卡/焦点和选择/取消选择问题。

接收焦点后不会自动选中复选框，您的用户可以使用空格键选中/取消选中它们。

Answer 2

您可以将代码放入 OnEnter 事件中以防止选中该复选框。
不过，您需要以某种方式存储之前选择的 RadioButton 。

var
  SelectedRadioButton: TRadioButton;

//event shared by all radiobuttons
procedure TForm1.RadioButton1Enter(Sender: TObject);
begin
  if Sender <> SelectedRadioButton then begin
    SelectedRadioButton.Checked:= true;
  end;
end;

procedure TFrameOrder.RadioButton1Click(Sender: TObject);
begin
  SelectedRadioButton:= (Sender as TRadioButton);
end;

procedure TFrameOrder.RadioButton1KeyPress(Sender: TObject; var Key: Char);
var
  MyRadioButton: TRadioButton;
begin
  MyRadioButton:= (Sender as TRadioButton);
  if Key in [#32,#13] then begin 
    MyRadioButton.Checked:= true;
    RadioButton1Click(MyRadioButton);
  end; {if}
end;

创建一个新的 TMyRadioButton 组件可能会更清楚，因为这会使您的常规代码变得混乱。

Answer 3

我发现了一篇关于这个问题的 Craig Stuntz 的有趣文章。正如我所看到的，我需要创建自己的控件来解决它。

Answer 4

默认情况下，只有一个 RadioButon 具有属性 TabStop = True；
所有单选按钮均被视为一个控件。
当单选按钮具有焦点时，您可以使用向上和向下箭头在单选按钮之间切换。

现在，当用户选择一个选项时，他们可以按 Tab 键切换到另一个控件（无需更改单选选项）。