Delphi基本组件及应用.PPT

第4章 Delphi基本组件及应用 基本文本输入输出组件 按钮类组件 列表框与组合框组件 可视化输入输出组件 时钟组件 对话框组件 基本输入输出组件 Label 标签（输出） Edit 编辑框 MaskEdit 带格式的编辑框 Memo（多行编辑框） RichEdit （对windows rich edit的封装 ） label 主要属性 Caption属性－显示的文本 AutoSize属性－标签大小是否和文字保持一致× Alignment属性－文本的水平对齐方式 taLeftJustify（左对齐，默认值） taCenter（居中对齐）√ taRightJustify（右对齐）。 Layout属性－字符串在标签中的位置 tlTop、 tlCenter √ 、 tlBottom Transparent属性－标签是否透明× Color属性－颜色 Font属性－字体 Edit 主要属性 Text属性－编辑框中的字符串内容 Enabled属性－是否处于停用状态 Modified属性－编辑框内容改变时置true PassWordChar属性－屏蔽字符（隐含#0) ReadOnly属性－是否可以编辑框中的内容 主要方法 Clear方法－清除编辑框内容 SetFocus方法－将文本框设置为输入焦点 CopyToClipboard－编辑框内容拷贝到剪贴板 CutToClipboard－编辑框内容剪切到剪贴板 PasteFromClipboard－剪贴板内容拷贝到编辑框 Edit 主要事件 OnChange－编辑框中的文本发生改变时 OnEnter－编辑框获得焦点 OnExit－输入焦点离开编辑框 OnKeyPress －输入按键时 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.Edit1Exit(Sender: TObject); var x : integer ; begin try x := strtoint(Edit1.Text); if (x100) or (x0) then begin showmessage(error number); Edit1.SetFocus ; end ; except showmessage(error number); Edit1.SetFocus ; end ; end； MaskEdit MaskEdit 第一个域即为输入格式描述串本身，它由一些专用的描述字符组成，并可用一些常量字符（或称字面字符）来填充。 第二个域中的字符决定描述串中的常量字符（非描述符）是否作为输入数据的一部分，1代表是（隐含），0代表不是。 第三个域决定用何种字符表示尚未输入的字符位置，隐含值是下划线“_”。 MaskEdit Memo组件 属性 Lines －编辑区的内容 Alignment－对齐方式 Scrollbars －滚动条设置（ssNone，ssBoth，ssHorizontal，ssVertical） WordWrap－自动换行 方法 Memo1.Lines.SaveToFile(‘file.txt’);　　//保存文件 Memo1.Lines.LoadFromFile(‘test.txt’); //加载文本文件 Memo1.Lines.Clear; // 清空 Memo1.Lines.Add(‘新加的一行’); // 追加一行文本 Memo1.Lines.Delete(1); //删除第2行，0 指第一行 Memo1.Lines. Insert( 1，’ … ’); //在第2行之前插入一行 基本文本输入输出组件例（例4-1） 基本文本输入输出组件例（例4-1） MaskEdit 学号：!00;1;_（设学号为2位数字） ！忽略输入的前导空格 生日：!0000年09月09日;1;_。 电话号码：!(9999)1;_。 基本文本输入输出组件例（例4-1） 基本文本输入输出组件例（例4-1） procedure TForm1.But