Delphi 2010 中 RadioGroup.ControlCount 的问题

Question

我想在运行时在过程 InitRadioGroup() 中设置 RadioButton 属性。 它失败，因为 RadioGroup.ControlCount 为 0，尽管 RadioGroup 中有 3 个 RadioButton。

D2010 RadioGroup 有什么问题？ 相同的代码在 Delphi 2007 中运行良好。

procedure InitRadioGroup(RadioGroup: TRadioGroup);
var
  i: integer;
  RadioButton: TRadioButton;
begin
  for i := 0 to RadioGroup.ControlCount - 1 do
  begin
    RadioButton := (RadioGroup.Controls[i] as TRadioButton);

    RadioButton.ParentColor := False;
    RadioButton.ParentFont  := False;
    RadioButton.Font.Style  := [];
end;

Answer 1

我假设调用您的过程时 RadioGroup 不可见。因此，RadioButtons 可能不会被创建。

调用 RadioGroup.HandleNeeded 应该可以解决这个问题。