关于RadioBox的简单问题

Question

我在一个RadioBox中放了5个Radio，分别为1，2，3，4，5
现在要确定是选择的哪个Radio，并返回值（1，2，3，4，5）
，请问该怎么做

Answer 1

这也许不是最好的办法，但这是最简单的办法
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
edit1.Text :='1';
end;procedure TForm1.RadioButton2Click(Sender: TObject);
begin
edit1.Text :='2';
end;procedure TForm1.RadioButton3Click(Sender: TObject);
begin
edit1.Text :='3';
end;procedure TForm1.RadioButton4Click(Sender: TObject);
begin
edit1.Text :='4';
end;procedure TForm1.RadioButton5Click(Sender: TObject);
begin
edit1.Text :='5';
end;

Answer 2

你可以把每个radio的tag值设的不一样

Answer 3

把五个radiobutton的tag分别设置为1 2 3 4 5;
然后在radiobutton1的onclick事件写:
  showmessage(inttostr(TradioButton(sender).Tag));
把radiobutton2-5的onclick指向radiobutton的onclick就可以了

Answer 4

是RADIOGROUP 还是GROUPBOX?
如果是前者,将它的Items编辑五行就会自动生成五个单选按钮,当选中某条时,
itemindex可以返回其序号(从零开始)
如果是后者,就如zfq308()所说了

Answer 5

//设置TAG属性。
procedure TfrmMain.RadioButtonClick(Sender: TObject);
begin
  if Sender is TRadioButton then
  begin
    case (Sender as TRadioButton).Tag of
      1:;
      2:;
      else;
    end;
  end;
end;

Answer 6

用标签做很好，可以清楚表达你所要返回的值。
建议你用 liaoqingpeng(棋快一步) 的方法做。

Answer 7

larruping(抱朴) 的方法很好，是针对radiobutton的，简单有效，建议采用

Answer 8

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case radiogroup1.ItemIndex of
0:edit1.text:='1';
1:edit1.text:='2';
2:edit1.text:='3';
3:edit1.text:='4';
4:edit1.text:='5';
end