一个非常简单的问题！！

Question

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

Answer 1

看看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;