Q&A

  • TreeView로 메뉴 만드는 예제 좀.....
제가 MDI Form 형식으로 프로그램 짜놓은 게 있는데
메인 메뉴를 그대로
화면 좌측에 TreeView로도 나타내서
사용하고 싶은데 잘 되지 않네요......

물론, TreeView에 나타나는 메뉴를 클릭하면
해당 폼이 실행되어야 하구요......

아시는 분은 제발 외면하지 마시고
메일로 예제 좀 보내주시면
감사 하겠습니다.

메일주소) fineface72@naver.com


1  COMMENTS
  • Profile
    박성훈 2006.02.10 01:02


    별로 쓸만한 실력은 아니지만 한번 만들어 봤습니다. 델파이 6에서 작업했습니다.

    procedure TForm1.DisplayMenu(aItem: TMenuItem; Node: TTreeNode);
    var
      I: Integer;
      CNode: TTreeNode;
    begin
      CNode := TreeView.Items.AddChildObject(Node, aItem.Caption, aItem);
      for I := 0 to aItem.Count - 1 do
            DisplayMenu(aItem[I], CNode);
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    var
      i: Integer;
    begin
      TreeView.Items.Clear;
      TreeView.Items.BeginUpdate;
      try
        for i:=0 to MainMenu.Items.Count-1 do
          DisplayMenu(MainMenu.Items[i], nil);
      finally
        TreeView.Items.EndUpdate;
      end;
    end;


    도움이 되셨으면 합니다.