为何下面的程序执行的时候，edit1\edit2的现实没有任何变化

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
begin
case radiogroup1.itemindex of
0:edit1.text:='aaa';
1:edit2.text:='bbb';
end;
end;end.

Answer 1

那说明radiogroup1.itemindex 既不是0也不是1，很可能是-1;

Answer 2

RadioGroup1.ItemIndex没有事先赋值。它初始值为-1。

Answer 3

radiogroup1.itemindex <-----------表示radiogroup1中选种的是哪个
没反映就表示都没有选

Answer 4

如果没有从radiogroup控件中的Items属性中添加radiobutton,而是直接添加radiobutton控件时
点击事件中
radiogroup1.itemindex 的值就是-1

Answer 5

同意：skyclin() 楼主一定是这样做的。

Answer 6

不错，我就是这样添加的，该如何在radiogroup控件中的Items属性中添加radiobutton

Answer 7

如果你仅仅是实现click（）的话，我想你还不如直接用它自己的click()事件呢？items.add('aaa');
items.add('bbb');然后直接在它自己的click()事件中写入你的代码即可！