组件、文本显示组件与编辑组件.pptVIP

VCL组件概述 窗体的组件对象 例：使用maskedit编辑单行文本 步骤（1）新建应用程序，在窗体上添加5个label组件、4个maskedit组件、1个edit组件 （2）在form的oncreate事件写代码，为4个maskedit设置格式和显示文本。 代码如下： procedure TForm1.FormCreate(Sender: TObject); begin MaskEdit1.EditMask :=9999年99月99日;1;_; //日期格式 MaskEdit1.Text :=2000年08月17日; MaskEdit2.EditMask :=99时99分;1;_; //时间格式 MaskEdit2.Text :=18时25分; MaskEdit3.EditMask :=9999年99月99日99时99分;1;_; //日期时间格式 MaskEdit3.Text:=MaskEdit1.Text + MaskEdit2.Text ; //日期与时间合并 MaskEdit4.EditMask :=(999)0000000-0000;0;_; //电话号码格式 MaskEdit4.Text :=02533268005275; Edit1.Text:=MaskEdit4.EditText; //显示运行时属性 end; （3）运行如下 当改变maskedit1或maskedit2的日期或时间时，欲使maskedit3的内容同步修改，可在maskedit1的onchang事件上写下以下程序： procedure TForm1.MaskEdit1Change(Sender: TObject); begin MaskEdit3.Text:=MaskEdit1.Text + MaskEdit2.Text ; end; Memo组件的常用方法 ? Add方法：该方法用来向字符串列表的尾部添加一个字符串。其语法格式如下： memo1.lines.add(‘aaaa’); ?Append方法：在最后添加一行文本，如emo1.lines.append(‘aaaa’);与add不同的是append是过程，而add是函数。 ? Delete方法：该方法用来从字符串列表中删除一个指定的字符串。其语法格式如下： memo1.lines.delete(0);//删除行0文本 ? Insert方法：该方法用来向字符串列表中插入一个字符串。其语法格式如下： memo1.lines.insert(2,’ccc’); ? Move方法:用于将一行文本从一个位置移动另一个位置。其语法格式如下： memo1.lines.move(3,1)// 将行3文本移到行1位置. ? LoadFromFile方法：该方法的作用是用指定的文件填充字符串列表。 ? SaveToFile方法：该方法用来把字符串列表中的数据写到某文件中去。 （4）wordwarp属性 该属性决定memo组件是否具有自动换行的功能，默认值为ture表示当输入满一行后有自动换行的功能。 （5）wantreturns属性 该属性设置memo组件是否插入一个回车符，值为ture时按enter键插入一个回车符，否则按回车键事件由窗体处理，如果想输入回车符则需按下ctrl+enter组合键。 5、spinedit渐变编辑框 它是一个带有上下箭头的编辑框，其中数据能够逐渐变化，位于sample选项卡中。 Spinedit用value属性表示当前显示的值。 Increment属性设置每次单击上下箭头时增加或减少的值，默认为1. maxvalue和minvalue属性表示取值变化的范围，取值范围为-2147483—2147483647. Editorenabled属性决定该组件是否可以直接编辑，默认值为TRUE表示可以直接输入数据，若为FALSE则不可以直接输入数据，只能通过按钮来输入数据。 主要事件有onchange，当改变了spinedit的值时触发onchange事件。 spinedit可以看作是由edit组件和updown组件组合而成,可以在spinedit组件中输入数据,也可以通过上下箭头来增加或减少数值. 例：设计一个简单的学生信息录入程序，在edit组件中输入学生的姓名，在maskedit组件中输入电话号码，在spine