delphi关于treeview的使用

m_1378204316909.jpg

delphi关于treeview的使用
treeview这个控件就是一个树状的控件,可以显示树状的结构。它应该是比较早的控件,因为他的实际可以用的功能真的比较少。但是如果有树状的结构显示的时候还是会用到他。这里就说明一下他的用途。他的结构不是很难。这里说明一下如何双击树中节点得到点击事件。
treeview树中节点的添加双击控件就可以,还是不难的。直接说单击和双击事件的实现吧。

单击事件当然是单击的事件onclick 双击就是双击的事件doubleclick的事件。这个控件和其他的控件不一样不能判断当前的点击的第几行。所以只能判断当前点击的节点的节点名称来对应点击的事件。下面是实现的代码。

TreeView1

==============
procedure Tmainform.TreeView1Click(Sender: TObject);
begin
  if treeview1.Selected.Text=’职工档案’ then
    n7.Click ;
  if treeview1.Selected.Text=’部门档案’ then
    n6.Click ;
  if treeview1.Selected.Text=’职工月基本系数’ then
    n8.Click ;
  if treeview1.Selected.Text=’期初余额’ then
    n9.Click ;
  if treeview1.Selected.Text=’职工信息变动’ then
    n10.Click ;
  if treeview1.Selected.Text=’按月自动登账’ then
    n13.Click ;
  if treeview1.Selected.Text=’按月取消登账’ then
    n14.Click ;
  if treeview1.Selected.Text=’手工登账调整’ then
    n15.Click ;
  if treeview1.Selected.Text=’提取住房公积金’ then
    n16.Click ;
  if treeview1.Selected.Text=’利息结算’ then
    n17.Click ;
  if treeview1.Selected.Text=’取消利息结算’ then
    n18.Click ;
  if treeview1.Selected.Text=’余额表查询’ then
    n19.Click ;
  if treeview1.Selected.Text=’明细表查询’ then
    n20.Click ;
  if treeview1.Selected.Text=’个人与单位缴纳汇总表’ then
    n21.Click ;
  if treeview1.Selected.Text=’用户管理’ then
    n24.Click ;
  if treeview1.Selected.Text=’口令修改’ then
    n25.Click ;
  if treeview1.Selected.Text=’数据备份与恢复’ then
    n26.Click ;
if treeview1.Selected.Parent <> nil then
  treeview1.Selected:=treeview1.Selected.Parent;

end;
 



Delphi小叮当的淘宝店铺

指尖网络全面实现网站与淘宝店铺相连接,完成了在线支付的接口;全站交易全面支持淘宝交易,率先支持先测试后付费
软件/网站拍之前请先咨询客服,索要测试版本之后再拍下宝贝
Delphi小叮当竭诚为您提供最优质的服务
iamhack.taobao.com