有两个RadioGroup,第一个有2个选项,第二个有三个选项,如何控制只有选择第一个RadioGroup中的第二个才能选择第二个RadioGroup中的第一个选项。也就是说当选择第一个RadioGroup中的第一个选项时,不能选择第二个RadioGroup中的第一个选项。

解决方案 »

  1.   

    那你在第二个RadioGroup的onclick事件中加个判断。
      

  2.   

    RadioGroup2的click()事件:if RadioGroup2.activeitemindex=0 then
        if RadioGroup2.activeitemindex=0 then
    begin
             RadioGroup2.activeitemindex=-1;
             showmessage("");
    end;
      

  3.   

    procedure TForm1.RadioGroup2Click(Sender: TObject);
    begin
      if RadioGroup1.ItemIndex =0 then
      begin
        if RadioGroup2.ItemIndex =0 then
        begin
          RadioGroup2.ItemIndex :=-1;
        end;
      end;end;procedure TForm1.RadioGroup1Click(Sender: TObject);
    begin
      if RadioGroup1.ItemIndex =0 then
      begin
        if RadioGroup2.ItemIndex =0 then
        begin
          RadioGroup2.ItemIndex :=-1;
        end;
      end;