Delphi以树型显示的程序界面
Delphi以树型显示的程序界面
实例说明
以树型显示程序的菜单，可以更直观更快捷的对软件进行操作。树型菜单比菜单栏更加美观实用。下面介绍树型菜单界面菜单的设计方法。本实例运行效果如图1.18所示。
技术要点
在对TreeView组件输入记录时，应注意New Item和NewSubItem按钮的方法，New Item按钮表示同级，NewSubItem按钮表示下一级。
可以在窗体的OnShow事件中输入下面其中的一条命令。
TreeViewlFullExpand；
功能：展开TreeView组件中所有的下级菜单。
TreeViewlFullCollapse；
功能：只显示TreeView组件中的一级菜单。
实现过程
1.新建一个标准工程，创建一个新窗体，设置窗体的Name属性为FRM_CRM。
2.在窗体上放置TMainMenu、TImage、TTreeView、TTimer、TXPManifest和TStatusBar组件。
3.相关组件的主要属性如表1.7所示。
表1.7 主要组件的属性设置
4.主要程序代码如下：
procedure TFRM_CRM.TreeView1DblClick(Sender: TObject);
begin
if treeview1.Selected.Text = ′区域信息设置′ then
n2.OnClick(sender);
if treeview1.Selected.Text = ′企业性质设置′ then
n3.OnClick(sender);
if treeview1.Selected.Text = ′企业类型设置′ then
n4.OnClick(sender);
if treeview1.Selected.Text = ′企业资信设置′ then
n5.OnClick(sender);
if treeview1.Selected.Text = ′客户级别设置′ then
n6.OnClick(sender);
if treeview1.Selected.Text = ′客户满意程度设置′ then
n7.OnClick(sender);
if treeview1.Selected.Text = ′客户信息′ then
n9.OnClick(sender);
if treeview1.Selected.Text = ′联系人信息′ then
n10.OnClick(sender);
if treeview1.Selected.Text = ′业务往来′ then
n11.OnClick(sender);
if treeview1.Selected.Text = ′发送邮件′ then
n13.OnClick(sender);
if treeview1.Selected.Text = ′客户反馈′ then
n15.OnClick(sender);
if treeview1.Selected.Text = ′客户投拆′ then
n16.OnClick(sender);
if treeview1.Selected.Text = ′客户反馈满意程度分析′ then
n17.OnClick(sender);
if treeview1.Selected.Text = ′客户投拆满意程度分析′ then
n18.OnClick(sender);
if treeview1.Selected.Text = ′客户信息查询′ then
n19.OnClick(sender);
if treeview1.Selected.Text = ′联系人信息查询′ then
n20.OnClick(sender);
if treeview1.Selected.Text = ′根据客户反馈满意程度查询′ then
n21.OnClick(sender);
if treeview1.Selected.Text = ′根据客户投诉满意程序查询′ then
n22.OnClick(sender);
if treeview1.Selected.Text = ′客户反馈查询′ then
n23.OnClick(sender);
if treeview1.Selected.Text = ′客户投诉查询′ then
n24.OnClick(sender);
if treeview1.Selected.Text = ′客户信息报表′ then
n26.OnClick(sender);
