RadioGroup 的使用

//获取 RadioGroup 项目名称
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  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;

  Text := str;
end;

posted on 2007-12-08 19:58  万一  阅读(7989)  评论(1)  编辑  收藏