Проблема с RadioGroup.ControlCount в Delphi 2010

Question

Я бы хотел установить свойства RadioButton во время выполнения в процедуре InitRadioGroup (). Сбой, потому что RadioGroup.ControlCount равен 0, хотя в RadioGroup есть 3 RadioButton.

Что не так в RadioGroup D2010? Тот же код отлично работает в 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 должен исправить это для вас.