Delphi 中 RadioGroup / pagecontrol 的使用

 //获取 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;

 PageControl组件位于组件板的Win32页中，它的功能就不多说了，这里主要说下它的属性及使用方法： 
    1．建立多页
    用鼠标右键单击PageControl组件，在弹出式菜单中选择New Page子菜单可添加新页，用Delete子菜单可删除当前页。读者应注意：    。
    ·单击PageControl组件标题时，选中的是PageControl对象。
    ·单击PageControl组件页面时，选中的是TabSheet对象。
    选择不同对象，在对象监视器中将显示不同对象的属性，即显示PageControl对象或TabSheet对象的属性。
  2．PageControl对象的主要属性
  (1)ActivePage属性
  ActivePage属性用于设置PageControl组件的当前页。单击ActivePage属性的下拉列表框，从列表框中可选择不同页面。

    (2)Muhiline属性
    Muhiline属性值为True时，PageControl控件呈多行风格。
    (3)Image属性
    Image属性表示与PageControl相关联的ImageList名。选定后PageControl就可使用Image-List中的图像。
    (4)Pages属性
    PageControl的所有页面记录在Page属性中，Pages是运行时的属性，即设计时在对象监视器中不可见，而运行时却能在程序中引用。
    Pages是一个数组，其元素类型为TTabSheet，元素个数放在PageCount中，Pages[0]是第一页，Pages[PageCount一1]是最后一页，中国自学编程网，www.zxbc.cn。
    (5)ActivePageIndex属性
    ActivePageIndex属性是当前活动页的Page属性的下标，从0开始计数。ActivePageIndex也是运行时的属性。
  3．TabSheet对象的常用属性
  (1)Caption属性
  该属性用于设置页标签名称。
  (2)PageIndex属性
  Pagelndex为该页在Pages数组中的下标，从0开始。
  (3)TabVisible属性
  TabVisible属性用于设置本页是否可见。
  (4)Imagelndex属性
  该页使用图像在ImageList中的索引值。