RadioGroup2的click()事件:if RadioGroup2.activeitemindex=0 then if RadioGroup2.activeitemindex=0 then begin RadioGroup2.activeitemindex=-1; showmessage(""); end;
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;
if RadioGroup2.activeitemindex=0 then
begin
RadioGroup2.activeitemindex=-1;
showmessage("");
end;
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;