2022年Delphi基础知识 .pdf

《2022年Delphi基础知识 .pdf》由会员分享，可在线阅读，更多相关《2022年Delphi基础知识 .pdf（9页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、名师精编优秀资料5.7 列表框的使用列表框也是Windows 程序中经常应用的控件之一，Delphi 提供的列表框包括【ListBox 】和【ComboBox 】，下面简单介绍这些控件常用的属性、方法和事件：表 5.7-1 ListBox 控件常用的属性、方法和事件属性、方法和事件功能解释Clear 清楚列表框内容Columns 设置列表框的列数Enabled 确定列表框是否被激活ExtendedSelect 确定是否可以使用Shift键、 Ctrl键进行选择Items 访问列表框中显示的字符串列表MultiSelect 确定是否可以从列表框中选择多个项目OnClick 处理单击鼠标所触发的事

2、件Selected 确定指定项是否被选中Sorted 确定列表框中各项是否按字母顺序排列表 5.7-2 ComboBox 控件常用的属性、方法和事件属性、方法和事件功能解释ItemHeight 设置组合框的下拉高度Items 访问组合框中显示的字符串列表MaxLength 设置用户在组合框的编辑框中最多可输入的字符数Text 设置或返回组合框上显示出来的文字内容Sorted 确定组合框中各项是否按字母顺序排列Clear 清楚组合框中内容OnChange 处理由改变组合框内容所触发的事件1、 进入 Delphi 编程环境；2、 新建工程：选择菜单【 File New Application】，新

3、建一个工程；3、 保存工程：选择菜单【 File Save All 】，保存单元为UntListBox.pas，保存工程为ListBox.dpr；4、 界面设计：在【Form1】上放置一个【 Edit 】控件，名为【 Edit1 】；在【 Form1】上放置 3 个【Button 】控件，分别名为【Button1 】、【 Button2 】、【 Button3 】， 设置【 Button1 】的【 Caption 】属性为【添加】，设置【 Button2 】的【 Caption 】属性为【排序】，设置【Button3 】的【 Caption 】属性为【清名师归纳总结 精品学习资料 - - -

4、- - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 1 页，共 9 页 - - - - - - - - - 名师精编优秀资料空】； 在【 Form1】上放置1 个【 ListBox 】控件，名为【ListBox1】，调整界面，最后形成界面图如图 5.7-1 所示：5、 代码设计 ：双击【 Button1 】按钮，添加如下代码（阴影部分）：procedure TForm1.Button1Click(Sender: TObject); begin listBox1.Items.Add(edit1.text); e

5、nd; 双击【 Button2 】按钮，添加如下代码（阴影部分）：procedure TForm1.Button2Click(Sender: TObject); begin listbox1.Sorted:=true; end; 双击【 Button3 】按钮，添加如下代码（阴影部分）：procedure TForm1.Button3Click(Sender: TObject); begin listBox1.Clear; end; 双击【 ListBox1】控件，添加如下代码（阴影部分）：procedure TForm1.ListBox1Click(Sender: TObject); beg

6、in edit1.Text:=listbox1.Items.Text; end; 6、 再次保存工程：选择菜单【File Save All 】；7、 编译运行工程：按动【F9】快捷键，编译运行工程，完成程序编制。5.8 界面控件的使用在制作 Delphi 程序界面时经常要应用到【Panel 】和【 Bevel 】两个控件 ：【 Panel 】控件用于把表单分割成几大部分，而由于【Panel 】是容器型的控件，因此所有在【Panel 】上的控件都是【Panel 】的子控制；【Bevel 】控件也是用于把表单分割成几大部分，所不同的是 ，【Bevel 】只是从外观上把表单画成几个部分，没有容器功能

7、。下面简单介绍这些控件常用的属性、方法和事件：表 5.8-1 Panel 控件常用的属性、方法和事件属性、方法和事件功能解释Align 设置在表单中的对齐方式Alignment 设置标题的排列方式BevelInner 设置内部斜面样式BevelOuter 设置外部斜面样式BevelWidth 设置斜面宽度BorderStyle 设置边框样式OnResize 处理由改变尺寸所触发的事件表 5.8-2 Bevel 控件常用的属性、方法和事件名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - -

8、 - - - 第 2 页，共 9 页 - - - - - - - - - 名师精编优秀资料属性、方法和事件功能解释Style 设置凹凸风格Shape 设置形状5.8.2 界面控件实例界面控件应用程序演示【 Panel 】和【 Bevel 】的应用情况：程序用3 个 Panel 把整个表单划分成3 个区域，程序演示了【 Bevel 】的几种形状。1、 进入 Delphi 编程环境；2、 新建工程：选择菜单【 File New Application】，新建一个工程；3、 保存工程 ： 选择菜单【 File Save All 】，保存单元为UntInterface.pas ， 保存工程为prjIn

9、terface.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、 再次保存工程：选择菜单

10、【File Save All 】；6、 编译运行工程：按动【F9】快捷键，编译运行工程，完成程序设计。5.9 对话框控件使用(p178)Delphi 提供了 一系列通用对话框控件（位于控件盘【Dialogs 】页） 用于完成 文件打开、文件形文件打开、图形文件保存、字体设置、色彩选择、打印、打印机设置、查找字符串、查找并替换功能。其中【 OpenDialog 】、【 SaveDialog 】、【 FindDialog】在前面例程中都有不同程度的介绍，而这些对话框的应用也基本上大同小异。下面简单介绍这些控件常用的属性、方法和事件：表 5.9-1 OpenDialog 控件常用的属性、方法和事件表

11、属性、方法和事件功能解释Title 设置对话框标题InitialDir 设置对话框初始目录FilterIndex 设置对话框的过滤器索引Filter 设置对话框的文件类型过滤器Options 设置对话框的其他属性，控制对话框文件属性FileName 设置对话框文件名表 5.9-2 SaveDialog 控件 常用的属性、方法和事件属性、方法和事件功能解释Title 设置对话框标题InitialDir 设置对话框初始目录FilterIndex 设置对话框的过滤器索引名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - -

12、 - - - - - - - - - - 第 3 页，共 9 页 - - - - - - - - - 名师精编优秀资料Filter 设置对话框的文件类型过滤器Options 设置对话框的其他属性，控制对话框文件属性FileName 设置对话框文件名Files 多选文件名表 5.9-3 FontDialog 控件 常用的属性、方法和事件属性、方法和事件功能解释Device 设置字体显示设备Font 设置字体Options 设置字体的扩展属性表 5.9-4 ColorDialog 控件 常用的属性、 方法和事件属性、方法和事件功能解释Color 设置颜色Options 设置颜色的扩展属性表 5.9

13、-5PrintDialog 控件 常用的属性、 方法和事件属性、方法和事件功能解释Collate 设置对话框中分页选项Copies 设置对话框中份数FromPage、ToPage 设置打印范围Options 设置对话框的扩展属性表 5.9-6 FindDialog 控件 常用的属性、方法和事件属性、方法和事件功能解释FindText 设置所需查找的字符串Options 设置对话框的扩展属性表 5.9-7ReplaceDialog 控件 常用的属性、 方法和事件属性、方法和事件功能解释FindText 设置所需查找的字符串ReplaceText 设置所需替换的字符串Options 设置对话框的扩

14、展属性5.9.2 对话框控件实例设置Memo 内容字体和颜色程序演示通过【FontDialog】、【 ColorDialog】为【 Memo 】控件中的内容设置字体和颜色。1、 进入 Delphi 编程环境；2、 新建工程：选择菜单【 File New Application】，新建一个工程；3、 保存工程： 选择菜单【 File Save All 】， 保存单元为UntSetFontColor.pas，保存工程为SetFontColor.dpr；名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - -

15、 - - - - - - 第 4 页，共 9 页 - - - - - - - - - 名师精编优秀资料4、 界面设计 ： 在 【Form1】 上放置一个 【Memo 】 控件，名为【Memo1 】 ， 设置【Memo1 】 的 【ScrollBars】属性为【 ssBoth 】， 单击【 Lines 】属性右边的【?】按钮，编辑【Memo1 】的【 Lines 】内容；在【Form1】上放置两个【Button 】控件，分别名为【Button1 】、【 Button2 】，设置【 Button1 】的【 Caption 】属性为【字体】，设置【Button2 】的【 Caption 】属性为【颜

16、色】；在【Form1】上放置一个 【 FontDialog】控件，名为【FontDialog1】；在 【Form1】上放置一个 【ColorDialog】，名为【 ColorDialog1】；调整控件，形成程序界面图如图5.9-1 所示：5、 代码设计： 双击【 Button1 】按钮 ，输入如下代码（阴影部分）：procedure TForm1.Button1Click(Sender: TObject); begin if fontdialog1.Execute then memo1.Font:=fontdialog1.Font;end; 双击【 Button2 】按钮，输入如下代码（阴影部

17、分）：procedure TForm1.Button2Click(Sender: TObject); begin if colordialog1.Execute then memo1.font.color:=colordialog1.color;end; 6、 再次保存工程 ：选择菜单【 File Save All 】；7、 编译运行工程：按动【F9】快捷键，编译运行工程，运行界面如图5.9-2 所示：5.10 图形控件的使用图形显示处理等功能是Windows 程序所必需的功能之一，Delphi 为我们提供了越来越强大的图形处理控件， 这就是控件盘【Additional】页中的【 Image】

18、控件 。从 Delphi5 开始， Image 控件就已经支持 JPEG图形了。下面简单介绍这些控件常用的属性、方法和事件：表 5.10-1 Image 控件 常用的属性、方法和事件属性、方法和事件功能解释Picture 设置需要显示输出图形的双击Canvas 设置图形输出的平面Transparent 确定图形是否以透明方式显示Stretch 确认图形是否自动伸展以适应图形控件的大小LoadFromFile 从文件加载图形SaveToFile 把图形保存到文件中5.10.2 图形控件实例 JPEG 图形操作在图形应用中经常要用到JPEG 格式的文件，通常这类文件以*.jpg 或者 *.jpeg

19、 为文件后缀。JPEG（Joint Photographic Experts Group ）联合图像专家组，是一种标准图像压缩机制。JPEG 采用有损压缩方法， 可以高效压缩图像，它既可以压缩全彩图像，又可以压缩灰阶图像。JPEG 压缩比可高达20:1，远远高于GIF 图像压缩的4:1 的压缩比。此外，JPEG 可以存储16M 真彩，而 GIF 等其他图像一般只能存储256 颜色。名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 5 页，共 9 页 - - - - -

20、 - - - - 名师精编优秀资料本程序演示JPEG 图形的操作，包括：彩色与灰阶之间的转化、8Bit 和 24Bit 图形模式之间的转化、图形的缩放等。1、 进入 Delphi 编程环境；2、 新建工程：选择菜单【File New Application】 ，新建一个工程；3、 保存工程 ：选择菜单【File Save All 】 ， 保存单元为UntJPEG.pas，保存工程为JPEG.dpr；4、 界面设计： 在【 Form1】上放置 三个【Label】控件 ，分别名为 【Label1 】 、 【 Label2 】 、 【 Label3 】 ，设置【 Label1 】的【 Caption

21、】属性为 【彩色 】 ，设置【 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：

22、4/1：8】 ；在【Form1】上放置一个【 Image】控件，名为【Image1】 ，点击【 Picture】属性右边的【?】按钮，为【Image1】加载一张 JPEG 格式的图形 ；调整控件，形成程序界面图如图5.10-1 所示：5、 代码设计 ：选择【Form1】 ，双击【OnCreate】事件， 在跳出的代码编辑框中加入如下代码（阴影部分）：procedure TForm1.FormCreate(Sender: TObject); begin cmbcolor.ItemIndex:=0; cmbmode.ItemIndex:=0; cmbbig.ItemIndex:=0;end; 选择

23、 【cmbcolor 】控件，双击【OnClick 】事件， 在跳出的代码编辑框中输入如下代码（阴影部分） ：procedure TForm1.cmbcolorClick(Sender: TObject); begin with TJPEGImage(Image1.Picture.Graphic) do Grayscale:=Boolean(cmbcolor.ItemIndex);end; 选择 【cmbmode】控件，双击【OnClick 】事件， 在跳出的代码编辑框中输入如下代码（阴影部分） ：procedure TForm1.cmbmodeClick(Sender: TObject);

24、begin with TJPEGImage(Image1.Picture.Graphic) do PixelFormat:=TJPEGPixelFormat(Self.cmbmode.ItemIndex); end; 选择【 cmbbig 】控件，双击【 OnClick 】事件， 在跳出的代码编辑框中输入如下代码（阴影部分）：procedure TForm1.cmbbigClick(Sender: TObject); begin with TJPEGImage(Image1.Picture.Graphic) do Scale:=TJPEGScale(Self.cmbbig.ItemIndex)

25、; end; 6、 再次保存工程：选择菜单【File Save All 】 ；7、 编译运行工程：按动【F9】快捷键，编译运行工程，运行界面如图5.10-2 所示：5.11 定时控件的使用名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 6 页，共 9 页 - - - - - - - - - 名师精编优秀资料定时控件（ Timer）是一个非可视化的控件，它具有定时的功能，应用程序一般通过该控件定时触发某些事件， 定时控件位于控件盘的【System】页中。 下面简单介绍

26、该控件常用的属性、方法和事件：表 5.11-1 Timer 控件常用的属性、方法和事件属性、方法和事件功能解释Interval 设置定时的时间间隔Enable 确认定时开始与否5.11.2 定时控件实例 用 Timer 取系统时间1、 进入 Delphi 编程环境；2、 新建工程：选择菜单【File New Appl ication 】 ，新建一个工程；3、 保存工程 ：选择菜单【File Save All 】 ， 保存单元为UntTimer.pas ，保存工程为Timer.dpr ；4、 界面设计 ：在【 Form1】上放置7 个【 Label】控件 ，分别名为【Label1】?【Label

27、7 】 ；在【Form1】 上放置 2 个 【Button 】 控件，分别名为 【Button1】 、【Button2 】 ， 设置【Button1】 的 【 Caption】属性为 【开始】，设置【Button2 】的【Caption】属性为 【结束】；在【Form1】上放置 1 个【Timer 】控件，名为【 Timer1 】 ，设置【 Timer1 】的【 Interval 】属性为【 100】 ；调整控件，形成程序界面；5、 代码设计 ：双击【 Button1 】控件 ，输入如下代码（阴影部分）：procedure TForm1.Button1Click(Sender: TObject

28、); begin Timer1.Enabled:=true;end; 双击【 Button2 】控件， 输入如下代码（阴影部分）：procedure TForm1.Button2Click(Sender: TObject); begin Timer1.Enabled:=false;end; 双击【 Timer1 】控件， 输入如下代码（阴影部分）：procedure TForm1.Timer1Timer(Sender: TObject); var DateTime : TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin

29、DateTime:= 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.

30、Caption:=Sec: +Inttostr(Sec); Label7.Caption:=MSec: +Inttostr(Msec); end; 6、 再次保存工程：选择菜单【File Save All 】 ；7、 编译运行工程：按动【F9】快捷键，编译运行工程，运行界面如图5.11-2 所示：名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 7 页，共 9 页 - - - - - - - - - 名师精编优秀资料第 6 章 绘图编程为了便于应用程序的绘图操作，De

31、lphi 提供了画布（Canvas）控件。 该控件封装了设备描述表，简化了应用程序的绘图操作，广泛应用于各种应用程序中。【Canvas】控件是一个非可视控件，也就是说您在控件盘上是找不到这个控件的。不过 Delphi 中的大多数控件（如Form、Image 等）都包含有一个 【 Canvas】属性 ，通过它我们可以对画布进行操作。下面简单介绍该控件常用的属性、方法和事件：表 6.1-1 Canvas 控件常用的属性、方法和事件属性、方法和事件功能解释Pen.Color 设置画笔线条颜色Pen.Style 设置画笔线条风格（有PsSolid、PsDash、PsDot、PsDashDot 等）Pe

32、n.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 用

33、画布绘制一条直线到指定的位置PolyLine 绘制折线Rectangle 绘制矩形Ellipse 绘制椭圆形RoundRect 绘制圆角矩形FillRect 用画刷填充指定的矩形区域CopyRect 复制指定区域内的图形到另一个画布的特定区域TextOut 绘制字符串Arc 绘制弧形曲线Draw 绘制图像6.2 绘图实例 画笔应用实例程序演示【 Canvas】中【 Pen】的应用实例，用户通过一个拾色器选取线条颜色，通过一个编辑器指定线条的粗细，然后在绘图区绘制直线。1、 进入 Delphi 编程环境；2、 新建工程：选择菜单【File New Application】 ，新建一个工程；3、

34、保存工程： 选择菜单 【 File Save All 】 ，保存单元为UntCanvas.pas，保存工程CanvasPen.dpr；4、 界面设计： 设置【 Form1 】的【 Color 】属性为【 clWhite 】 ；在【Form1】上放置一个【Panel】控件，名为【 Panel1】 ，设置【 Panel1】的【 Caption】属性为【】 （空 ） ，设置【 Panel1】的【 Align 】属性为【alTop】 ；在【Panel1】上放置两个 【Label】控件， 名为【Label1 】 、 【Label2 】 ，设置【Label1 】的【Caption 】属性为 【线条颜色】

35、，设置【Label2 】的【Caption】属性为 【线条粗细】 ；在【Panel1】上放置一个【Edit 】控件 ， 名为【 Edit1 】 ，设置【 Edit1 】的【 Text】属性为【】 （空）， 【Color 】名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 8 页，共 9 页 - - - - - - - - - 名师精编优秀资料属性为【 clBlack 】 ， 【ReadOnly 】属性为【 True】 ；在【 Panel1】上放置一个【SpinEdit

36、 】控件（在控件盘【 Samples】页中）， 名为【 SpinEdit1 】 ，设置【 SpinEdit1 】的【 MaxValue 】属性为【20】（线条最粗为20 磅） ， 【MinValue 】属性为【 1】 ；在【 Form1】上放置一个【ColorDialog 】控件；调整控件，最后形成程序界面图如图6.2-1 所示：5、 代码设计 ：双击【 Edit1 】的【 OnClick 】事件 ，输入如下程序代码（阴影部分）：procedure TForm1.Edit1Click(Sender: TObject); begin if colordialog1.Execute then ed

37、it1.Color:=colordialog1.Color; end; 双击【 Form1】的【 OnMouseDown 】事件 ，输入如下程序代码（阴影部分）：procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin form1.Canvas.MoveTo(x,y); end; 双击【 Form1】的【 OnMouseUp 】事件 ，输入如下程序代码（阴影部分）：procedure TForm1.FormMouseUp(Send

38、er: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin form1.Canvas.Pen.Color:=edit1.Color; form1.Canvas.Pen.Width:=strtoint(spinedit1.text); form1.Canvas.LineTo(x,y);end; 6、 再次保存工程：选择菜单【File Save All 】 ；7、 编译运行工程：按动【F9】快捷键，编译运行工程，运行界面如图6.2-2 所示名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -精心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 9 页，共 9 页 - - - - - - - - -