delphi里树形菜单的实现

看到好多应用软件的主界面上有一个“树形菜单”，把系统常用的、公开的功能链接起来，既漂亮又方便快捷，非常羡慕。现在，我终于做出了我自己的树形菜单，虽然简单，但实用。更重要的是我获得了一点儿心理上的愉悦是千金难求的。写到笔记里做个纪念。呵呵！

procedure Tmain.TreeView1Click(Sender: TObject);

begin

  if TreeView1.Selected.Text='铜板库存' then

     begin

       Application.CreateForm(Tdqkcpd, dqkcpd);

       dqkcpd.ShowModal;

     end;

  if TreeView1.Selected.Text='客户财产库存' then

     begin

       Application.CreateForm(Tdqcckc, dqcckc);

       dqcckc.ShowModal;

     end;

  if TreeView1.Selected.Text='自由查询' then

     begin

       Application.CreateForm(Tzycx, zycx);

       zycx.ShowModal;

     end;

  if TreeView1.Selected.Text='产品名称字典维护' then

     begin

       Application.CreateForm(Tcpzdwh, cpzdwh);

       cpzdwh.ShowModal;

     end;

  if TreeView1.Selected.Text='客户名称字典维护' then

     begin

       Application.CreateForm(Tkhmczdwh, khmczdwh);

       khmczdwh.ShowModal;

     end;

end;

    菜单中各个节点的设置在开发环境里很容易就能搞明白，照做就是了。

来源：http://blog.163.com/zhangwei_531124/blog/static/51166130201002910555698/