《《Delphi基础编程》》由会员分享，可在线阅读，更多相关《《Delphi基础编程》（5页珍藏版）》请在金锄头文库上搜索。
1、Delphi 基础编程公开课教案课题：TreeView，ListView重点：TreeView 和 ListView 组件的属性和方法难点：TreeView 和 ListView 组件的应用新课引入：一、 树状视图组件 TreeViewTreeView 组件将列表内容分级显示，呈树状结构，列表中有一系列节点和子节点，可以将节点展开或折叠。这种树状结构的还有如企业机构和人事结构。TreeView 组件位于组件面板的 Win32 页上。TreeView 组件在设计期间就可以描述树状结构的各层次节点以及设置各结点所关联的图标；在运行期可以展开和折叠各个节点，这都无需写代码。制作方法：（1）双击 Tr
2、eeView 组件。（2）在 TreeView 组件上右击，选 Items Editor。（3）选中 TreeView 组件，选 Items 属性。可以在每一个节点的前面加上图标。TreeView 组件的常用属性：(1)AutoExpand:为 true 时，只有被选取的节点会显示出子节点，其他未被选取的节点会自动被关闭。(2)Items:TTreeNodes 类型，用来设置 TreeView 组件的内容值。(3)Selected:TtreeNode 类型，说明哪一个节点为被选取的节点，这是一个运行期间的属性。(4)MultiSelect:设置是否允许选取多个节点。(5)SortType:决定
3、节点排序的类型。(6)HotTrack:设为 true 时，当鼠标指向一个节点则节点会高亮显示。(7)Ident:设定节点层次间的缩进长度值。TreeView 的常用事件：OnChange 事件：在选取节点发生改变时触发。动态地增删节点TreeView 组件的每一个节点都是一个 TTreeNode 对象，所有的节点组成TTreeNodes 对象，利用这两个对象可以在运行期动态地添加和删除节点。TreeView 组件常用的方法：（1）LoadFromFile 方法：将指定文件的内容加载成为 TreeView 组件的节点。（2）SaveToFile 方法：将 TreeView 组件的节点内容保存到
4、指定的文件，节点层次以 Tab 键表示。TreeView 组件的 Items 属性的方法：（1）Add 方法：加入与选中节点同级的节点加入选中节点的下一级的节点Add（ Node： TTreeNode ，Display： String）添加一个节点。（2） AddChild 方法：AddChild （ParentNode ： TTreeNode ，Display： String）添加一个子节点。（3）Delete 方法：Delete （Node： TTreeNode）删除一个节点。二、 列表视图组件 ListView列表视图组件可以让用户选择不同的显示方式，如大图标方式、小图标方式、列表方式和
5、详细资料方式等，如 Windows 资源管理器的右边就是一个典型的ListView 组件。ListView 组件位于组件面板的 Win32 页上。ListView 组件的常用属性：（1）Items：ListView 组件中显示的项目。（2）ViewStyle：显示的方式。有四种vsIcon：大图标vsSmallIcon：小图标vsList：列表vsReport：详细资料（3）CheckBoxs ：决定 ListView 中的每一项前面是否出现一个复选框以供用户选取。（4）Columns：可以将 ListView 中的每一项分成若干栏。（5）MultiSelect：决定用户是否可以同时选择多个项
6、目。（6）LargeImages/SmallImages ：大图标或小图标显示方式下的图像列表。（7）Selected：返回 ListView 中被选择的项，这是一个运行期间的属性。ListView 的常用方法：ListView 的 Items 属性的 Add 方法，是一个 TListItem 类型。ListView 的常用事件：（1）OnSelectItem：当 ListView 中有项目被选择时触发该事件。例 1：TreeView1 的 HotTrack 属性设为 True；HideSelection 属性设为 true。ListView1的 LargeImages 和 SmallImag
7、es 属性分别设为 ImageList1。1、“增加节点”的 Onclick 事件代码：var BrotherNode:TTreeNode;BrotherNode:=treeview1.Selected;treeview1.Items.Add(BrotherNode,edit1.Text);2、“增加子节点”的 Onclick 事件代码：var ParentNode:TTreeNode;ParentNode:=treeview1.Selected;treeview1.Items.AddChild(ParentNode,edit1.Text);3、“删除节点”的 Onclick 事件代码：tre
8、eview1.Items.Delete(treeview1.Selected);4、“保存节点文件”的 Onclick 事件代码：treeview1.SaveToFile(d:aa.txt);5、“导入节点文件”的 Onclick 事件代码：var i,k:integer;if fileexists(d:aa.txt)thentreeview1.LoadFromFile(d:aa.txt)elseshowmessage(节点文件不存在);k:=treeview1.Items.Count;for i:=0 to k-1 do treeview1.Itemsi.ImageIndex:=i;6、Tr
9、eeView1 的 Onchange事件代码：var NewItem:TListItem;Listview1.Items.Clear; if treeview1.Selected.Text=计算机系 thenbeginNewItem:=ListView1.Items.Add;NewItem.Caption:=计算机软件;NewItem.ImageIndex:=1;NewItem:=ListView1.Items.Add;NewItem.Caption:=计算机网络;NewItem.ImageIndex:=2;NewItem:=ListView1.Items.Add;NewItem.Caption:=计算机应用;NewItem.ImageIndex:=3;end;7、ListView1 的 OnSelectItem 事件代码：label1.Caption:=Item.Caption;8、快捷菜单的“大图标”的 Onclick 事件代码：ListView1.ViewStyle:=vsIcon;9、快捷菜单的“小图标”的 Onclick 事件代码：ListView1.ViewStyle:=vsSmallIcon;时间：2005 年下期参与人员：软件教研室、督导团
