一个非常简单的问题！！

[nanoo]

想请问各位大侠：
我在RadioGroup中放置了两个RadioButton控件，初始化时RadioGroup1.ItemIndex=-1,问题是我在
RadioButton1.click中进行了如下操作：RadioGroup1.ItemIndex=0（以次做条件控制程序流程）；可我发现程序在运行时并没有按我的条件运行，不知是何原因？？？？

[落伍的小农]

看看DELPHI有关ItemIndex的帮助吧！
你不能对ItemIndex赋值的。
因为ItemIndex是RadioGroup中指出你选择RadioButton的Index。-1表示没选任何按钮，0是第一个按钮。不用你自己赋值。但前提是里面的RadioButton是通过RadioGroup的Items属性加的。
而你是在RadioGroup中放置了两个RadioButton控件，不是设置RadioGroup的Items加的RadioButton。你不能对ItemIndex赋值的。看看帮助的例子：
procedure TForm1.FormCreate(Sender: TObject);

begin
RadioGroup1.Items.Add('Vertical');
RadioGroup1.Items.Add('Horizontal');
RadioGroup1.ItemIndex := 2;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin
if RadioGroup1.Items[RadioGroup1.ItemIndex] = 'Vertical' then
ScrollBar1.Kind := sbVertical;
if RadioGroup1.Items[RadioGroup1.ItemIndex] = 'Horizontal' then
ScrollBar1.Kind := sbHorizontal;

end;