大哥们:
   我在RadioGruop中选了一项
   怎么把它重置为没选过的状态?

解决方案 »

  1.   

    procedure TForm1.RadioGroup1Click(Sender: TObject);
    var
       Selected : Integer;
    begin
       Selected := RadioGroup1.ItemIndex;
       RadioGroup1.Items.Strings[Selected].Checked:=false;
    end;
      

  2.   

    最笨的方法了!勿怪!
    procedure TForm1.Button1Click(Sender: TObject);
    var
      i,j:integer;
    begin
    s:=Tstringlist.Create;
    for  i:=0  to radiogroup1.items.count-1  do
    begin
      s.Add(radiogroup1.Items.Strings[i]);
    end;
    j:=radiogroup1.items.count-1;
    radiogroup1.Items.Clear;
    for  i:=0  to j do
    begin
      radiogroup1.Items.Add(s[i]);
    end;end;
      

  3.   

    大哥:
       RadioGroup1.Items.Strings[Selected].Checked:=false;
    编译通不过的呀?