Delphi基础知识.doc

5.7 列表框的使用列表框也是Windows 程序中经常应用的控件之一，Delphi 提供的列表框包括【ListBox】和【ComboBox】，下面简单介绍这些控件常用的属性、方法和事件： 表 5.7-1 ListBox 控件常用的属性、方法和事件属性、方法和事件 功能解释Clear 清楚列表框内容Columns 设置列表框的列数Enabled 确定列表框是否被激活ExtendedSelect 确定是否可以使用Shift键、Ctrl键进行选择Items 访问列表框中显示的字符串列表MultiSelect 确定是否可以从列表框中选择多个项目OnClick 处理单击鼠标所触发的事件Selected 确定指定项是否被选中Sorted 确定列表框中各项是否按字母顺序排列 表 5.7-2 ComboBox 控件常用的属性、方法和事件属性、方法和事件 功能解释ItemHeight 设置组合框的下拉高度Items 访问组合框中显示的字符串列表MaxLength 设置用户在组合框的编辑框中最多可输入的字符数Text 设置或返回组合框上显示出来的文字内容Sorted 确定组合框中各项是否按字母顺序排列Clear 清楚组合框中内容OnChange 处理由改变组合框内容所触发的事件1、 进入Delphi 编程环境；2、 新建工程：选择菜单【FileNew Application】，新建一个工程；3、 保存工程：选择菜单【FileSave All】，保存单元为UntListBox.pas，保存工程为ListBox.dpr；4、 界面设计：在【Form1】上放置一个【Edit】控件，名为【Edit1】；在【Form1】上放置3 个【Button】控件，分别名为【Button1】、【Button2】、【Button3】，设置【Button1】的【Caption】属性为【添加】，设置【Button2】的【Caption】属性为【排序】，设置【Button3】的【Caption】属性为【清空】；在【Form1】上放置1 个【ListBox】控件，名为【ListBox1】，调整界面，最后形成界面图如图5.7-1 所示：5、 代码设计：双击【Button1】按钮，添加如下代码（阴影部分）：procedure TForm1.Button1Click(Sender: TObject);beginlistBox1.Items.Add(edit1.text);end;双击【Button2】按钮，添加如下代码（阴影部分）：procedure TForm1.Button2Click(Sender: TObject);beginlistbox1.Sorted:=true;end;双击【Button3】按钮，添加如下代码（阴影部分）：procedure TForm1.Button3Click(Sender: TObject);beginlistBox1.Clear;end;双击【ListBox1】控件，添加如下代码（阴影部分）：procedure TForm1.ListBox1Click(Sender: TObject);beginedit1.Text:=listbox1.Items.Text;end;6、 再次保存工程：选择菜单【FileSave All】；7、 编译运行工程：按动【F9】快捷键，编译运行工程，完成程序编制。5.8 界面控件的使用在制作Delphi 程序界面时经常要应用到【Panel】和【Bevel】两个控件：【Panel】控件用于把表单分割成几大部分，而由于【Panel】是容器型的控件，因此所有在【Panel】上的控件都是【Panel】的子控制；【Bevel】控件也是用于把表单分割成几大部分，所不同的是，【Bevel】只是从外观上把表单画成几个部分，没有容器功能。下面简单介绍这些控件常用的属性、方法和事件： 表 5.8-1 Panel 控件常用的属性、方法和事件属性、方法和事件 功能解释Align 设置在表单中的对齐方式Alignment 设置标题的排列方式BevelInner 设置内部斜面样式BevelOuter 设置外部斜面样式BevelWidth 设置斜面宽度BorderStyle 设置边框样式OnResize 处理由改变尺寸所触发的事件 表 5.8-2 Bevel 控件常用的属性、方法和事件属性、方法和事件 功能解释Style 设置凹凸风格Shape 设置形状5.8.2 界面控件实例界面控件应用程序演示【Panel】和【Bevel】的应用情况：程序用3 个Panel 把整个表单划分成3 个区域，程序演示了【Bevel】的几种形状。1、 进入Delphi 编程环境；2、 新建工程：选择菜单【FileNew Application】，新建一个工程；3、 保存工程： 选择菜单【File Save All 】，保存单元为UntInterface.pas ， 保存工程为prjInterface.dpr； （Interface 是保留字，所以不能以它命名！）4、 界面设计：在【Form1】上放置3 个【Panel】，分别名为【Panel1】、【Panel2】、【Panel3】，设置【Panel1】的【Align】属性为【AlTop】，设置【Panel2】的【Align】属性为【AlLeft】，设置【Panel3】的【Align】属性为【AlClient】；在【Panel3】容器中放置7 个【Bevel】控件，设置它们的【Shape】属性；调整控件，形成程序界面图如图5.8-1 所示：5、 再次保存工程：选择菜单【FileSave All】；6、 编译运行工程：按动【F9】快捷键，编译运行工程，完成程序设计。5.9 对话框控件使用(p178)Delphi 提供了一系列通用对话框控件（位于控件盘【Dialogs】页）用于完成文件打开、文件形文件打开、图形文件保存、字体设置、色彩选择、打印、打印机设置、查找字符串、查找并替换功能。其中【OpenDialog】、【SaveDialog】、【FindDialog】在前面例程中都有不同程度的介绍，而这些对话框的应用也基本上大同小异。下面简单介绍这些控件常用的属性、方法和事件： 表 5.9-1 OpenDialog 控件常用的属性、方法和事件表 属性、方法和事件 功能解释Title 设置对话框标题InitialDir 设置对话框初始目录FilterIndex 设置对话框的过滤器索引Filter 设置对话框的文件类型过滤器Options 设置对话框的其他属性，控制对话框文件属性FileName 设置对话框文件名 表 5.9-2 SaveDialog 控件常用的属性、方法和事件属性、方法和事件 功能解释Title 设置对话框标题InitialDir 设置对话框初始目录FilterIndex 设置对话框的过滤器索引Filter 设置对话框的文件类型过滤器Options 设置对话框的其他属性，控制对话框文件属性FileName 设置对话框文件名Files 多选文件名 表 5.9-3 FontDialog 控件常用的属性、方法和事件属性、方法和事件 功能解释Device 设置字体显示设备Font 设置字体Options 设置字体的扩展属性 表 5.9-4 ColorDialog 控件常用的属性、方法和事件属性、方法和事件 功能解释Color 设置颜色Options 设置颜色的扩展属性 表 5.9-5 PrintDialog 控件常用的属性、方法和事件属性、方法和事件 功能解释Collate 设置对话框中分页选项Copies 设置对话框中份数FromPage、ToPage 设置打印范围Options 设置对话框的扩展属性 表 5.9-6 FindDialog 控件常用的属性、方法和事件属性、方法和事件 功能解释FindText 设置所需查找的字符串Options 设置对话框的扩展属性 表 5.9-7 ReplaceDialog 控件常用的属性、方法和事件属性、方法和事件 功能解释FindText 设置所需查找的字符串ReplaceText 设置所需替换的字符串Options 设置对话框的扩展属性5.9.2 对话框控件实例设置Memo 内容字体和颜色程序演示通过【FontDialog】、【ColorDialog】为【Memo】控件中的内容设置字体和颜色。1、 进入Delphi 编程环境；2、 新建工程：选择菜单【FileNew Application】，新建一个工程；3、 保存工程：选择菜单【FileSave All】，保存单元为UntSetFontColor.pas，保存工程为SetFontColor.dpr；4、 界面设计：在【Form1】上放置一个【Memo】控件，名为【Memo1】，设置【Memo1】的【ScrollBars】属性为【ssBoth】，单击【Lines】属性右边的【】按钮，编辑【Memo1】的【Lines】内容；在【Form1】上放置两个【Button】控件，分别名为【Button1】、【Button2】，设置【Button1】的【Caption】属性为【字体】，设置【Button2】的【Caption】属性为【颜色】；在【Form1】上放置一个【FontDialog】控件，名为【FontDialog1】；在【Form1】上放置一个【ColorDialog】，名为【ColorDialog1】；调整控件，形成程序界面图如图5.9-1 所示：5、 代码设计：双击【Button1】按钮，输入如下代码（阴影部分）：procedure TForm1.Button1Click(Sender: TObject);beginif fontdialog1.Execute thenmemo1.Font:=fontdialog1.Font;end;双击【Button2】按钮，输入如下代码（阴影部分）：procedure TForm1.Button2Click(Sender: TObject);beginif colordialog1.Execute thenmemo1.font.color:=colordialog1.color;end;6、 再次保存工程：选择菜单【FileSave All】；7、 编译运行工程：按动【F9】快捷键，编译运行工程，运行界面如图5.9-2 所示：5.10 图形控件的使用图形显示处理等功能是Windows 程序所必需的功能之一，Delphi 为我们提供了越来越强大的图形处理控件，这就是控件盘【Additional】页中的【Image】控件。从Delphi5 开始，Image 控件就已经支持JPEG图形了。下面简单介绍这些控件常用的属性、方法和事件： 表 5.10-1 Image 控件常用的属性、方法和事件属性、方法和事件 功能解释Picture 设置需要显示输出图形的双击Canvas 设置图形输出的平面Transparent 确定图形是否以透明方式显示Stretch 确认图形是否自动伸展以适应图形控件的大小LoadFromFile 从文件加载图形SaveToFile 把图形保存到文件中5.10.2 图形控件实例JPEG 图形操作在图形应用中经常要用到JPEG 格式的文件，通常这类文件以*.jpg 或者*.jpeg 为文件后缀。JPEG（JointPhotographic Experts Group）联合图像专家组，是一种标准图像压缩机制。JPEG 采用有损压缩方法，可以高效压缩图像，它既可以压缩全彩图像，又可以压缩灰阶图像。JPEG 压缩比可高达20:1，远远高于GIF 图像压缩的4:1 的压缩比。此外，JPEG 可以存储16M 真彩，而GIF 等其他图像一般只能存储256 颜色。本程序演示JPEG 图形的操作，包括：彩色与灰阶之间的转化、8Bit 和24Bit 图形模式之间的转化、图形的缩放等。1、 进入Delphi编程环境；2、 新建工程：选择菜单【FileNew Application】，新建一个工程；3、 保存工程：选择菜单【FileSave All】，保存单元为UntJPEG.pas，保存工程为JPEG.dpr；4、 界面设计：在【Form1】上放置三个【Label】控件，分别名为【Label1】、【Label2】、【Label3】，设置【Label1】的【Caption】属性为【彩色】，设置【Label2】的【Caption】属性为【模式】，设置【Label3】的【Caption】属性为【大小】；在【Form1】上放置三个【ComboBox】控件，分别名为【CmbColor】、【CmbMode】、【CmbBig】，设置【cmbcolor】的【Items】属性为【RGB/GrayScale】（注意：符号“/”代表在Items编辑框中的回车，下同），设置【cmbmode】的【Items】属性为【24bit/8bit】；设置【cmbbig】的【Items】属性为【1：1/1：2/1：4/1：8】；在【Form1】上放置一个【Image】控件，名为【Image1】，点击【Picture】属性右边的【】按钮，为【Image1】加载一张JPEG格式的图形；调整控件，形成程序界面图如图5.10-1所示：5、 代码设计：选择【Form1】，双击【OnCreate】事件，在跳出的代码编辑框中加入如下代码（阴影部分）：procedure TForm1.FormCreate(Sender: TObject);begincmbcolor.ItemIndex:=0;cmbmode.ItemIndex:=0;cmbbig.ItemIndex:=0;end;选择【cmbcolor】控件，双击【OnClick】事件，在跳出的代码编辑框中输入如下代码（阴影部分）：procedure TForm1.cmbcolorClick(Sender: TObject);beginwith TJPEGImage(Image1.Picture.Graphic) doGrayscale:=Boolean(cmbcolor.ItemIndex);end;选择【cmbmode】控件，双击【OnClick】事件，在跳出的代码编辑框中输入如下代码（阴影部分）：procedure TForm1.cmbmodeClick(Sender: TObject);beginwith TJPEGImage(Image1.Picture.Graphic) doPixelFormat:=TJPEGPixelFormat(Self.cmbmode.ItemIndex);end;选择【cmbbig】控件，双击【OnClick】事件，在跳出的代码编辑框中输入如下代码（阴影部分）：procedure TForm1.cmbbigClick(Sender: TObject);beginwith TJPEGImage(Image1.Picture.Graphic) doScale:=TJPEGScale(Self.cmbbig.ItemIndex);end;6、 再次保存工程：选择菜单【FileSave All】；7、 编译运行工程：按动【F9】快捷键，编译运行工程，运行界面如图5.10-2所示：5.11 定时控件的使用定时控件（Timer）是一个非可视化的控件，它具有定时的功能，应用程序一般通过该控件定时触发某些事件，定时控件位于控件盘的【System】页中。下面简单介绍该控件常用的属性、方法和事件： 表 5.11-1 Timer 控件常用的属性、方法和事件属性、方法和事件 功能解释Interval 设置定时的时间间隔Enable 确认定时开始与否5.11.2 定时控件实例用Timer 取系统时间1、 进入Delphi 编程环境；2、 新建工程：选择菜单【FileNew Application】，新建一个工程；3、 保存工程：选择菜单【FileSave All】，保存单元为UntTimer.pas，保存工程为Timer.dpr；4、 界面设计：在【Form1】上放置7 个【Label】控件，分别名为【Label1】【Label7】；在【Form1】上放置2 个【Button】控件，分别名为【Button1】、【Button2】，设置【Button1】的【Caption】属性为【开始】，设置【Button2】的【Caption】属性为【结束】；在【Form1】上放置1 个【Timer】控件，名为【Timer1】，设置【Timer1】的【Interval】属性为【100】；调整控件，形成程序界面；5、 代码设计：双击【Button1】控件，输入如下代码（阴影部分）：procedure TForm1.Button1Click(Sender: TObject);beginTimer1.Enabled:=true;end;双击【Button2】控件，输入如下代码（阴影部分）：procedure TForm1.Button2Click(Sender: TObject);beginTimer1.Enabled:=false;end;双击【Timer1】控件，输入如下代码（阴影部分）：procedure TForm1.Timer1Timer(Sender: TObject);varDateTime : TDateTime;Year, Month, Day, Hour, Min, Sec, MSec: Word;beginDateTime:= Now;DecodeDate(DateTime, Year, Month, Day);Label1.Caption:=Year: +Inttostr(Year);Label2.Caption:=Month: +Inttostr(Month);Label3.Caption:=Day: +Inttostr(Day);DecodeTime(DateTime, Hour, Min, Sec, MSec);Label4.Caption:=Hour: +Inttostr(Hour);Label5.Caption:=Min: +Inttostr(Min);Label6.Caption:=Sec: +Inttostr(Sec);Label7.Caption:=MSec: +Inttostr(Msec);end;6、 再次保存工程：选择菜单【FileSave All】；7、 编译运行工程：按动【F9】快捷键，编译运行工程，运行界面如图5.11-2 所示： 第6章 绘图编程为了便于应用程序的绘图操作，Delphi 提供了画布（Canvas）控件。该控件封装了设备描述表，简化了应用程序的绘图操作，广泛应用于各种应用程序中。【Canvas】控件是一个非可视控件，也就是说您在控件盘上是找不到这个控件的。不过Delphi 中的大多数控件（如Form、Image 等）都包含有一个【Canvas】属性，通过它我们可以对画布进行操作。下面简单介绍该控件常用的属性、方法和事件： 表 6.1-1 Canvas 控件常用的属性、方法和事件属性、方法和事件 功能解释Pen.Color 设置画笔线条颜色Pen.Style 设置画笔线条风格（有PsSolid、PsDash、PsDot、PsDashDot等）Pen.Width 设置画笔线条宽度Brush.Color 设置画刷填充操作所使用的颜色Brush.Bitmap 指定画刷填充操作所使用的位图Brush.Style 设置画刷的风格（BsSolid、BsCross、BsDiagCross、BsBDiagonal）Font.Color 设置字体的颜色Font.Height 设置字体的高度Font.Name 设置字体的名称Font.Style 设置字体的风格（FsBold、FsItalic、FsUnderline、FsStrikeOut）Font.Size 设置字体的大小MoveTo 将画布控件中的画笔位置移动到指定的坐标处LineTo 用画布绘制一条直线到指定的位置PolyLine 绘制折线Rectangle 绘制矩形Ellipse 绘制椭圆形RoundRect 绘制圆角矩形FillRect 用画刷填充指定的矩形区域CopyRect 复制指定区域内的图形到另一个画布的特定区域TextOut 绘制字符串Arc 绘制弧形曲线Draw 绘制图像6.2 绘图实例画笔应用实例程序演示【Canvas】中【Pen】的应用实例，用户通过一个拾色器选取线条颜色，通过一个编辑器指定线条的粗细，然后在绘图区绘制直线。1、 进入Delphi 编程环境；2、 新建工程：选择菜单【FileNew Application】，新建一个工程；3、 保存工程：选择菜单【FileSave All】，保存单元为UntCanvas.pas，保存工程CanvasPen.dpr；4、 界面设计：设置【Form1】的【Color】属性为【clWhite】；在【Form1】上放置一个【Panel】控件，名为【Panel1】，设置【Panel1】的【Caption】属性为【】（空），设置【Panel1】的【Align】属性为【alTop】；在【Panel1】上放置两个【Label】控件，名为【Label1】、【Label2】，设置【Label1】的【Cap