我想在程序InitRadioGroup()中在运行时设置RadioButton属性。 它失败,因为RadioGroup.ControlCount为0,尽管RadioGroup中有3个RadioButtons。
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;
答案 0 :(得分:3)
我假设调用过程时RadioGroup不可见。因此可能不会创建RadioButtons。
致电RadioGroup.HandleNeeded
应该为您解决此问题。