中央广播电视大学 课件 Delphi基本组件及应用_Delphi程序设计第四章

第4章Delphi基本组件及应用 ●基本文本输入输出组件 ●按钮类组件 ●列表框与组合框组件 ●可视化输入输出组件 ●时钟组件 ●对话框组件

第4章 Delphi基本组件及应用 ⚫基本文本输入输出组件 ⚫按钮类组件 ⚫列表框与组合框组件 ⚫可视化输入输出组件 ⚫时钟组件 ⚫对话框组件 5

基本输入输出组件 ●Label标签（输出） ●Edit编辑框 ●MaskEdit带格式的编辑框 ●Memo(多行编辑框) ●RichEdit(对windows rich edit的封装)

基本输入输出组件 ⚫Label 标签（输出） ⚫Edit 编辑框 ⚫ MaskEdit 带格式的编辑框 ⚫Memo（多行编辑框） ⚫RichEdit （对windows rich edit的封装 ）

label ●主要属性 。Caption,属性一显示的文本 。AutoSize属性一标签大小是否和文字保持一致X 。Alignment)属性一文本的水平对齐方式 ⊙taLeftJustify(左对齐，默认值) o taCenter(居中对齐)V 回x o taRightJustify(右对齐)。 。Layout)属性一字符串在标签中的位置 o tlTop、tlCenter√、tlBottom Label1 。Transparent)属性一标签是否透明X 。Color属性一颜色 。Font属性-字体

label ⚫ 主要属性 Caption属性－显示的文本 AutoSize属性－标签大小是否和文字保持一致× Alignment属性－文本的水平对齐方式  taLeftJustify（左对齐，默认值）  taCenter（居中对齐）√  taRightJustify（右对齐）。 Layout属性－字符串在标签中的位置  tlTop、 tlCenter √ 、 tlBottom Transparent属性－标签是否透明× Color属性－颜色 Font属性－字体

Edit ●主要属性 。Text属性一编辑框中的字符串内容 。Enabled,属性一是否处于停用状态 。Modified属性一编辑框内容改变时置true 。PassWordChar属性一屏蔽字符（隐含#O) 。ReadOnly属性一是否可以编辑框中的内容 ·主要方法 。Clear方法一清除编辑框内容 。SetFocus方法一将文本框设置为输入焦点 。CopyToClipboard一编辑框内容拷贝到剪贴板 。CutToClipboard一编辑框内容剪切到剪贴板 。PasteFromClipboard一剪贴板内容拷贝到编辑框

Edit ⚫ 主要属性 Text属性－编辑框中的字符串内容 Enabled属性－是否处于停用状态 Modified属性－编辑框内容改变时置true PassWordChar属性－屏蔽字符（隐含#0) ReadOnly属性－是否可以编辑框中的内容 ⚫ 主要方法 Clear方法－清除编辑框内容 SetFocus方法－将文本框设置为输入焦点 CopyToClipboard－编辑框内容拷贝到剪贴板 CutToClipboard－编辑框内容剪切到剪贴板 PasteFromClipboard－剪贴板内容拷贝到编辑框

Edit ●主要事件 oOnChange一编辑框中的文本发生改变时 。OnEnter一编辑框获得焦点 。OnExit一输入焦点离开编辑框 。OnKeyPress一输入按键时

Edit ⚫主要事件 OnChange－编辑框中的文本发生改变时 OnEnter－编辑框获得焦点 OnExit－输入焦点离开编辑框 OnKeyPress －输入按键时

Edit例 ●进入编辑框时预清 ●输入的数据必须在0~100之间 7Form1 -回x 操作数1 23 加法 搛作数2 44 减法 结果 67

Edit例 ⚫进入编辑框时预清 ⚫输入的数据必须在0～100之间

Edit例 procedure TForm1.Edit1Enter(Sender:TObject); begin Edit1.Clear end; procedure TForm1.Button1Click(Sender:TObject); var x,y :integer begin x:=strtoint(edit1.Text); y:=strtoint(edit2.Text); edit3.Text :inttostr(x+y); end;

Edit例 procedure TForm1.Edit1Enter(Sender: TObject); begin Edit1.Clear ; end; procedure TForm1.Button1Click(Sender: TObject); var x,y :integer ; begin x:= strtoint(edit1.Text) ; y:= strtoint(edit2.Text) ; edit3.Text := inttostr(x+y); end;

Edit例 procedure TForm1.Edit1Exit(Sender:TObject); var x integer; begin try x :strtoint(Edit1.Text); if (x>100)or (x<0)then begin showmessage('error number); Edit1.SetFocus; end except showmessage('error number'); Edit1.SetFocus; end end;

Edit例 procedure TForm1.Edit1Exit(Sender: TObject); var x : integer ; begin try x := strtoint(Edit1.Text); if (x>100) or (x<0) then begin showmessage('error number'); Edit1.SetFocus ; end ; except showmessage('error number'); Edit1.SetFocus ; end ; end；

MaskEdit Object Inspector MaskEdit1 TMaskEc Input Mask Editor Properties Events Input Mask: Sample Masks: Constraint (TSizeCons I99/99/0000:1, Phone (415555-1212 15450 Ctl3D True Social Security 555-55-5555 Cursor crDefault Character for Blanks Short Zip Code 90504 DragCursicrDrag Save Literal Characters Long Zip Code 90504-0000 Date 06/27/94 DragKind dkDrag Long Time 09:05:15PM DragModidmManual Short Time 13:45 Test Input EditMask 01/01/199] Enabled True 田Font (TFont) Masks... OK Cancel Help Height 24 HelpConte0 HelpKey HelpType htContext XXXXXXXX;1; All shown

MaskEdit XXXXXXXX;1;_

MaskEdit ●第一个域即为输入格式描述串本身，它由一些专用 的描述字符组成，并可用一些常量字符（或称字面 字符)来填充。 ●第二个域中的字符决定描述串中的常量字符（非描 述符)是否作为输入数据的一部分，1代表是（隐 含)，0代表不是。 ●第三个域决定用何种字符表示尚未输入的字符位置， 隐含值是下划线“_

MaskEdit ⚫ 第一个域即为输入格式描述串本身，它由一些专用 的描述字符组成，并可用一些常量字符（或称字面 字符）来填充。 ⚫ 第二个域中的字符决定描述串中的常量字符（非描 述符）是否作为输入数据的一部分，1代表是（隐 含），0代表不是。 ⚫ 第三个域决定用何种字符表示尚未输入的字符位置， 隐含值是下划线“_