《Delphi基础编程》.doc

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