[NumLock]

ЛистинГ:

Код:

unit Unit1;

interface

uses
  Menus, ComCtrls,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  ActnList;

type
  TForm1 = class(TForm)
    ActionList: TActionList;
    ActionPaste: TAction;
    ActionDel: TAction;
    ActionStart: TAction;
    ActionStop: TAction;
    ActionMeter: TAction;
    ActionSetting: TAction;
    Actionabout: TAction;
    ActionClose: TAction;
    ActionSelectAll: TAction;
    TreeView1: TTreeView;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem32: TMenuItem;
    MenuItem33: TMenuItem;
    MenuItem34: TMenuItem;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure mapping(AMainMenu: TMainMenu; ATreeView: TTreeView; ATreeNode: TTreeNode; AMenuItem: TMenuItem);
var
  i: Integer;
begin
  if AMenuItem=nil then
    for i:=0 to AMainMenu.Items.Count-1 do
      mapping(AMainMenu, ATreeView, ATreeNode, AMainMenu.Items[i])
  else
  begin
    if ATreeNode=nil then ATreeNode:=ATreeView.Items.Add(nil, AMenuItem.Caption)
    else ATreeNode:=ATreeView.Items.AddChild(ATreeNode, AMenuItem.Caption);
    for i:=0 to AMenuItem.Count-1 do
      mapping(AMainMenu, ATreeView, ATreeNode, AMenuItem.Items[i]);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  mapping(MainMenu1, TreeView1, nil, nil);
end;

end.

http://data.cod.ru/82295