Delphi标准控件-单选按钮组
单选按钮组（RadioBox）是单选按钮的组合。当我们需要对不同的单选按钮进行选择时，为了使不同组之间互不干涉，就需要使用单选按钮组。
单选按钮组有两个重要得属性：Items和ItemIndex。在窗体上选中RadioBox组件在对象查看器上双击Items属性，将打开一个对话框，如下图所示：
在该对话框的编辑窗口中输入各项标题，每项一行。
ItemIndex属性用于表明单选按钮组中哪一项被选中了。若为－１（缺省值），表示没有被选中的项；若为0，表示第一项被选中；若为１，表示第二项被选中；其他依次类推。
我们在前面编制的文本编辑器的基础上，使用单选按钮组代替单选按钮，并添加字体选择功能。程序用到两个RadioGroup组件，属性如下：
由于RadioGroup1的IntemIdex为０，则第一项为初始被选中的项，即“红色”被选中，所以程序在初始化时应将Memo1中的文本颜色设置为红色；同样，RadioGruop2的初始项为第三项“宋体”（ItemIndex为２），也应在初始化时将Memo的文本字体设置为宋体。初始化语句放在Form1的OnCreate事件中，即在创建窗体时对Memo组件进行初始设置。相应得程序如下：
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.Text:='这里是RadioGroup组件示例';
memo1.Font.Color:=clRed; //设定文本的初始颜色为红色
memo1.Font.Name:='宋体' //设定文本字体为宋体
end;
改变字体颜色的程序代码如下：
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=0 then
Memo1.Font.Color:=clRed
else if radiogroup1.ItemIndex=1 then
Memo1.Font.Color:=clBlue
else
Memo1.Font.Color:=clGreen;
end;
改变字体的程序代码如下：
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
if radiogroup2.ItemIndex=0 then
Memo1.Font.Name:='Arial'
else if radiogroup2.ItemIndex=1 then
Memo1.font.name:='Symbol'
else Memo1.Font.Name:='宋体';
end;
程序界面如下图所示：
完整的程序代码如下：
www.zzzyk.com 电脑知识网 为你解决问题的好地方
