delphi控件使用

《delphi控件使用》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、控件使用Standard页1-Tlistbox控件重要属性items.*举例，界面设计如下左，执行结果如下右：代码为procedureTForm1.Button1Click(Sender:TObject);beginedit1.Text:=listbox1.Items.CommaText;edit2.Text:=listbox1.Items.Text;edit3.Text:=listbox1.Items.GetNamePath;edit4.Text:=listbox1.Items.Strings[1];edit5.Text:=listbox1.Items.

2、DelimitedText;edit6.Text:=listbox1.Items.Names[1];end;由执行结果知，CommaText把各行用逗号隔开，Text获得所有行数字符且不隔开，Strings[i]获得i行的字符。2-Checkbox控件Alignment决定文字和框的左右布局；state属性里有个Grayed状态，为灰色选中状态，与Enabled：=false不同的是它可以在程序运行的时候进行操作；AllowGrayed属性为True时候，控件有三种状态：选中、未选中、选中但变灰；3-RadioGroup控件Columns属性设置radob

3、utton的列数；4-TmainMenu控件Action属性；AutoHotKeys属性自动配置快捷键；birmap属性为某个菜单标签添加图标；Break属性给菜单分栏：mbBarBreak-分栏有竖线，mbBreak-只分栏无竖线，若要从末各标签开始分栏，则设置该标签的Break属性；Caption属性设置为短横线时为分隔横线；Checked属性为True时为标签添加对勾；ShutCut属性为标签添加快捷键，并在标签右边显示；模板应用：右击主菜单，Insert..保存模板：与上类似，SaveAs..5-PopMenu控件使用Standard页1-Tlis

4、tbox控件重要属性items.*举例，界面设计如下左，执行结果如下右：代码为procedureTForm1.Button1Click(Sender:TObject);beginedit1.Text:=listbox1.Items.CommaText;edit2.Text:=listbox1.Items.Text;edit3.Text:=listbox1.Items.GetNamePath;edit4.Text:=listbox1.Items.Strings[1];edit5.Text:=listbox1.Items.DelimitedText;edit6

5、.Text:=listbox1.Items.Names[1];end;由执行结果知，CommaText把各行用逗号隔开，Text获得所有行数字符且不隔开，Strings[i]获得i行的字符。2-Checkbox控件Alignment决定文字和框的左右布局；state属性里有个Grayed状态，为灰色选中状态，与Enabled：=false不同的是它可以在程序运行的时候进行操作；AllowGrayed属性为True时候，控件有三种状态：选中、未选中、选中但变灰；3-RadioGroup控件Columns属性设置radobutton的列数；4-TmainMen

6、u控件Action属性；AutoHotKeys属性自动配置快捷键；birmap属性为某个菜单标签添加图标；Break属性给菜单分栏：mbBarBreak-分栏有竖线，mbBreak-只分栏无竖线，若要从末各标签开始分栏，则设置该标签的Break属性；Caption属性设置为短横线时为分隔横线；Checked属性为True时为标签添加对勾；ShutCut属性为标签添加快捷键，并在标签右边显示；模板应用：右击主菜单，Insert..保存模板：与上类似，SaveAs..5-PopMenu控件使用Standard页1-Tlistbox控件重要属性items.*举例

7、，界面设计如下左，执行结果如下右：代码为procedureTForm1.Button1Click(Sender:TObject);beginedit1.Text:=listbox1.Items.CommaText;edit2.Text:=listbox1.Items.Text;edit3.Text:=listbox1.Items.GetNamePath;edit4.Text:=listbox1.Items.Strings[1];edit5.Text:=listbox1.Items.DelimitedText;edit6.Text:=listbox1.Ite

8、ms.Names[1];end;由执行结果知，CommaText把