TreeView实现主菜单功能

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;

波比源码 – 精品源码模版分享 | www.bobi11.com
1. 本站所有资源来源于用户上传和网络,如有侵权请邮件联系站长!
2. 分享目的仅供大家学习和交流,您必须在下载后24小时内删除!
3. 不得使用于非法商业用途,不得违反国家法律。否则后果自负!
4. 本站提供的源码、模板、插件等等其他资源,都不包含技术服务请大家谅解!
5. 如有链接无法下载、失效或广告,请联系管理员处理!
6. 本站资源售价只是赞助,收取费用仅维持本站的日常运营所需!
7. 如遇到加密压缩包,请使用WINRAR解压,如遇到无法解压的请联系管理员!

波比源码 » TreeView实现主菜单功能

发表评论

Hi, 如果你对这款模板有疑问,可以跟我联系哦!

联系站长
赞助VIP 享更多特权,建议使用 QQ 登录
喜欢我嘛?喜欢就按“ctrl+D”收藏我吧!♡