[delphi步步精通]第7章常用组件(编辑修改稿)

[delphi步步精通]第7章常用组件(编辑修改稿)内容摘要：

(39。 Operating System39。 )。 (39。 Data Structure39。 )。 (39。 Application of Database 39。 )。 (39。 Computer Network Principle39。 )。 (39。 Software Engineering39。 )。 end。  在 Listbox1组件和 Listbox2组件的 Onclick事件中分别添加如下代码： procedure (Sender: TObject)。 var i:Integer。 str,st:string。 begin 列表框组件 (2) i:=。 str:=[i]。 st:=。 if strpos(pchar(st),pchar(str))=nil then ([i])。 end。 procedure (Sender: TObject)。 var i:Integer。 begin i:=。 (i)。 end。  程序运行结果如图 76所示。 图 76 组合框演示程序 注意： 上面的程序可以通过双击左边 Selection Items栏中作选的课目而将其添加到右边的 Result栏中。 如果右边已经有的则不会再添加。 同样，可以在右边通过双击将该课目去掉。 组合框组件 (1) DropDownCount属性、 Dropped Down属性、 Style属性、OnDropDown事件。 列表框虽然可以提供多个选项供用户选择 ， 但对于大小有限的窗口来说 ， 这是一笔不小的开销。 为了最大限度地节省应用程序窗口空间 ， Delphi 供了组合框组件。 与列表框相比 ， 组合框能有效地利用屏幕空间。 接下来介绍其独特的一些常用的属性及主要的事件和方法。 【 例 75】 组合框的使用。  进入 Delphi 1个 Label组件和 2个ComboBox组件。  在 form1的 Oncreate事件中添加如下代码： procedure (Sender: TObject)。 begin :=39。 汉字 39。 :=8。 :=39。 宋体 39。 :=inttostr()。 end。 组合框组件 (2)  在 ComboBox1组件和 ComboBox2组件的 OnChange事件和 OnDropDown事件中分别添加如下代码： procedure (Sender: TObject)。 begin :=GB2312_CHARSET。 :=。 end。 procedure (Sender: TObject)。 begin :=strtoint()。 end。 procedure (Sender: TObject)。 begin with bobox1 do begin。 组合框组件 (3) sorted:=true。 items:=。 end。 end。 procedure (Sender: TObject)。 var i:Integer。 begin with bobox2 do begin。 i:=1。 while i 80 do begin (inttostr(i))。 i:=i+2。 end。 end。 end。 程序执行结果如图 77所示。 图 77 组合框演示程序 对话框组件和对话框函数 常用对话框组件 Delphi ：打开、存储文件、设置字体和颜色、查找、打印、设置打印机组件等。 它们都位于组件面板的Dialogs标签页；当然，这些对话框的外观仍然取决于用户使用的Windows版本，在程序执行过程中调用相关组件的 execute方法，就会激活相应的对话框。 1. 打开文件对话框组件和保存文件对话框组件 OpenDialog组件和 SaveDialog组件有许多相似之处，不同是OpenDialog组件用于提供一个打开对话框，供用户进行文件的选择和打开，而 SaveDialog组件用于保存文件。 OpenDialog组件常用的属性值如下几种。 DefaultEXT属性 、 Filter属性 、 InitialDir属性、 Title属性 常用对话框组件 2. 字体对话框组件和颜色对话框组件 即 FontDialog组件和 ColorDialog组件。 FontDialog组件封装了Windows的字符集，可以提供一个字体对话框，供用户设置文本的字体、字号； ColorDialog组件用于提供一个标准的颜色选择对话框，用户可以通过它来选择颜色。 它们的常用属性如下： MaxFontSize属性、 MinFontSize属性、 Options属性、 Color属性。 3. 打印选项组件和打印设置组件 即 PrintDialog组件和 PrintSetupDialog组件。 PrintDialog封装了标准 Windows打印选项对话框，用于向打印机传递打印任务；PrintSetupDialog组件用来完成打印设置任务。 4. 文本搜索组件和文本替换组件 即 FindDialog组件和 ReplaceDialog组件。 FindDialog组件封装了标准 Windows的文本搜索对话框，允许用于在文件中查找一段文字； ReplaceDialog组件包含了。