TreeView实现主菜单功能

发布时间：2020-12-13 20:11:13 所属栏目：PHP教程来源：网络整理

导读：TreeView实现主菜单功能软件在菜单MenuItem中，设置了软件的各项功能，和启动相应模块。为了加大软件的灵活性，我们还可以将主菜单的项目，转变成TreeView，通过点击TreeView树中叶子（TreeNode），打开相应的模块，到达主菜单的功能。 1、设置全局变量 Last

TreeView实现主菜单功能

软件在菜单MenuItem中，设置了软件的各项功能，和启动相应模块。为了加大软件的灵活性，我们还可以将主菜单的项目，转变成TreeView，通过点击TreeView树中叶子（TreeNode），打开相应的模块，到达主菜单的功能。

1、设置全局变量
Last_Node: TTreeNode;用于保存鼠标点击TreeView1的最后1次节点。这样，只要判断TreeView1.Selected和Last_Node1致，造成一样节点2次点击，才能击发事件的效果。

2、MenuItemsToListView进程：
procedure TMDIFrm.MenuItemsToListView(mMenu: TMenuItem; nNode: TTreeNodes;p_node: TTreeNode);
var i: Integer;
c_node: TTreeNode;
begin
for i := 0 to mMenu.Count - 1 do // 菜单项目循环
begin
if mMenu.Items[i].Caption<>'-' then
begin
c_node:= nNode.AddChild(p_node,mMenu.Items[i].Caption);
c_node.Data:= @mMenu.Items[i].OnClick; // Data指针类型，保存菜单事件
end;
MenuItemsToListView(mMenu.Items[i],nNode,c_node); // 递归
end;
end;

3、FormCreat事件，读取菜单数据
var parent_node : TTreeNode;
begin
TreeView1.Items.Clear;
for i:= 0 to MainMenu1.Items.Count⑴ do
begin
parent_node := TreeView1.Items.Add(nil,MainMenu1.Items[i].Caption);
MenuItemsToListView(MainMenu1.Items[i],TreeView1.Items,parent_node);
end;
end;

4、TreeView1.OnMouseUp鼠标事件
procedure TMDIFrm.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X,Y: Integer);
var pro : TNotifyEvent;
begin
if TreeView1.Selected=Last_Node then
begin
@pro:= TreeView1.Selected.Data; // 读取事件地址
if Assigned(pro) then pro(nil); // 履行事件
end;
Last_Node:=TreeView1.Selected;
end;

5、如果处于TreeView1节点上，通过按键事件击发事件
（1）取消TreeView1.OnMouseUp鼠标事件;
（2）Button事件：
procedure TMDIFrm.Button1Click(Sender: TObject);
var pro : TNotifyEvent;

begin

if TreeView1.Selected=nil then exit;

@pro:= TreeView1.Selected.Data;
if Assigned(pro) then pro(nil);
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!