在先前用过很多组件,如今回头看一看,发觉很多还值得改进的地方,所以想借此机会与大家共享,共同学习:下面首先说第一个实例,单选按钮的使用,下面是原先的程序:
实例是实现当单击一个选项时就弹出一个信息说您选择了哪一项内容:比如:
真好
一般
可以
很差
当选择真好时,就弹出“您选择了:真好”
原先的代码是这样的:
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
grade_pj:string
begin
case RadioGroup1.ItemIndex of
0:grade_pj:='真好';
...
end;
ShowMessage('您选择了:'+grade_pj);
end;
这个方法不理想,原因在于要一项一项的列出来,很麻烦!应该用下面的方法:
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
i:integer;
begin
i:=RadioGroup1.ItemIndex;
ShowMessage('您选择了:'+RadioGroup1.Buttons[i].Caption);
end;
这样的话就不用一项一项的列出来了.这就是对一个组件的属性的了解的多少的问题,原先主要是不知道有这个Buttons[i].Caption,所以得一一列出,再返值,用这个以后只需提供一个选项序号便可得到值了.