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);