xuangege的专栏

做人要知足,做事要知不足,做学问要不知足

组件应用技巧(一)

 在先前用过很多组件,如今回头看一看,发觉很多还值得改进的地方,所以想借此机会与大家共享,共同学习:下面首先说第一个实例,单选按钮的使用,下面是原先的程序:
实例是实现当单击一个选项时就弹出一个信息说您选择了哪一项内容:比如:
真好
一般
可以
很差
当选择真好时,就弹出“您选择了:真好”
原先的代码是这样的:
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,所以得一一列出,再返值,用这个以后只需提供一个选项序号便可得到值了.

阅读更多
文章标签: integer string
想对作者说点什么? 我来说一句

工业机器人实操与应用技巧_叶晖

2014年01月23日 45.52MB 下载

模拟技术应用技巧101例

2016年03月22日 48.79MB 下载

模拟技术应用技巧101例清晰版.pdf

2018年02月28日 50.89MB 下载

OP放大器应用技巧100例清晰版

2013年12月04日 24.47MB 下载

没有更多推荐了,返回首页

不良信息举报

组件应用技巧(一)

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭