本文整理自网络，侵删。
看到好多应用软件的主界面上有一个“树形菜单”，把系统常用的、公开的功能链接起来，既漂亮又方便快捷，非常羡慕。现在，我终于做出了我自己的树形菜单，虽然简单，但实用。更重要的是我获得了一点儿心理上的愉悦是千金难求的。写到笔记里做个纪念。呵呵！
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/
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
