722编辑框组件(2 3. MaskEdit组件 该组件位于组件面板的 Additional标签页,功能与Ed组件相似,用 于显示和编辑具有指定格式的文本,如特定格式的时间等。 EditMask属性 en念_n hort Zip Code Lteral Character:客 Masks. Cancel 图7-4 Input Mask Editor对话框 4. Labeledit组件 位于组件面板的 Additiona标签页,它的作用相当于使用Labe组件和 Edit组件的组合,常用属性如下。 EditLabe/、 Labe position、 Labe/spaceing Inprise Dephi
7.2.2 编辑框组件(2) 3. MaskEdit 组件 该组件位于组件面板的Additional标签页，功能与Edit组件相似，用 于显示和编辑具有指定格式的文本，如特定格式的时间等。 EditMask属性 图7-4 Input Mask Editor对话框 4. LabelEdit组件 位于组件面板的Additional标签页，它的作用相当于使用Label组件和 Edit组件的组合，常用属性如下。 EditLabel 、 LabelPosition 、 LabelSpaceing
722编辑框组件(3) 【例7-3】文本类组件的使用。 ③进入 Delphi7.0环境,创建2个 Button按钮、1个Edt组件和1个Memo组件, 如图7-5所示。 ③在Form1的 Oncreate事件中添加如下代码: procedure TForm1. FormCreate(sender: Tobject) begin form1 Caption:=文本类组件演示程序; edit 1.Text: edit, TabOrder: =0 memo 1. TabOrder: =1 memo 1.Scroll Bars =ssVertical button 1. Tab Order: =2 图7-5文本类组件使用 button2 Tab Order: =3 memo1. Lines clear button1. Caption: =&Clear, button2. Caption: =&Add engnprise Dephi
7.2.2 编辑框组件(3) 【例7-3】文本类组件的使用。 进入Delphi 7.0环境，创建2个Button按钮、1个Edit组件和1个Memo组件， 如图7-5所示。 在Form1的Oncreate事件中添加如下代码： procedure TForm1.FormCreate(Sender: TObject); begin form1.Caption:='文本类组件演示程序'; edit1.Text:=''; edit1.TabOrder:=0; memo1.TabOrder:=1; memo1.ScrollBars:=ssVertical; button1.TabOrder:=2; button2.TabOrder:=3; memo1.Lines.Clear; button1.Caption:='&Clear'; button2.Caption:='&Add'; end; 图7-5 文本类组件使用