RadioGroup用法

//设置按钮的cursor效果procedure TForm1.FormCreate(Sender: TObject);var  I: Integer;begin  with radiogroup1 do  begin    for I := 0 to ControlCount - 1 do      Buttons[I].Cursor := crHandPoint;  end;end;

//获取 RadioGroup 项目名称procedure TForm1.RadioGroup1Click(Sender: TObject);begin  Edit1.text := RadioGroup1.Items[RadioGroup1.ItemIndex];end;

//当点击 RadioGroup 中的第几个选项时...procedure TForm1.RadioGroup1Click(Sender: TObject);var  str: string;begin  case RadioGroup1.ItemIndex of    0: str := 'one';    1: str := 'two';    2: str := 'three';    3: str := 'four';  end;   Edit1.text := str;end;