//设置按钮的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;