Go homepage(回首页) Upload pictures (上传图片) Write articles (发文字帖)
The author:(作者)aaapublished in(发表于) 2014/7/19 0:09:31 Delphi位图组件（TBitMap）使用实例
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);
赞