TreeView實(shí)現(xiàn)主菜單功能

TreeView實(shí)現(xiàn)主菜單功能


    軟件在菜單MenuItem中，設(shè)置了軟件的各項(xiàng)功能，和啟動(dòng)相應(yīng)模塊。為了加大軟件的靈活性，我們還可以將主菜單的項(xiàng)目，轉(zhuǎn)變成TreeView，通過點(diǎn)擊TreeView樹中葉子（TreeNode），打開相應(yīng)的模塊，到達(dá)主菜單的功能。

                                                              
    1、設(shè)置全局變量
    Last_Node: TTreeNode;用于保存鼠標(biāo)點(diǎn)擊TreeView1的最后1次節(jié)點(diǎn)。這樣，只要判斷TreeView1.Selected和Last_Node1致，造成一樣節(jié)點(diǎn)2次點(diǎn)擊，才能擊發(fā)事件的效果。


    2、MenuItemsToListView進(jìn)程：    
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                           // 菜單項(xiàng)目循環(huán)   
  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事件，讀取菜單數(shù)據(jù)
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鼠標(biāo)事件
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節(jié)點(diǎn)上，通過按鍵事件擊發(fā)事件
   （1）取消TreeView1.OnMouseUp鼠標(biāo)事件;
   （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;