Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[16067] Re:TMainmenu 컴포넌트 질문입니다.
[] 829 읽음    2019-11-29 11:21
자체해결 했습니다...

var
  i, j, k, isub_VisCnt : Integer;


  for I := 0 to  TopMainMenu.Items.Count -1 do
  begin
    for j := 0 to TopMainMenu.Items.Items[i].Count -1 do
    begin
      isub_VisCnt := 0;

      if TopMainMenu.Items.Items[i].Items[j].Tag = 10 then
      begin
        for k := 0 to TopMainMenu.Items.Items[i].Items[j].Items[k].Count - 1 do
        begin
          if TopMainMenu.Items.items[i].Items[j].Items[k].Visible then inc(isub_VisCnt);
        end;

        if isub_VisCnt > 0 then
        begin
          TopMainMenu.Items.items[i].Items[j].Visible := True;
          TopMainMenu.Items.items[i].Items[j].Enabled := True;
        end
        else
        begin
          TopMainMenu.Items.items[i].Items[j].Visible := False;
          TopMainMenu.Items.items[i].Items[j].Enabled := False;
        end;
      end;
    end;
  end;




test 님이 쓰신 글 :
: 해당 컴포넌트에 서브메뉴를 생성해서 추가하였습니다.
:
:
: 예를들어
: 파일 / 문서 / 설정
: 라는 위에 메인메뉴 항목 아래에
:
:
: 파일 아래에
: 새로만들기
: 저장... > 다른이름으로 저장
:              현재화면 저장
:
: 위와같이 서브메뉴로 다른이름 저장/ 현재화면저장 등 기능을 넣을때.
: 옆에 서브메뉴가 존재하지 않을때 저 저장버튼을... 숨김처리하는방법이 알고싶습니다..
:          
:
:

+ -

관련 글 리스트
16065 TMainmenu 컴포넌트 질문입니다. test 912 2019/11/26
16070     Re:Re:TMainmenu 컴포넌트 질문입니다. 905 2019/11/29
16069     Re:TMainmenu 컴포넌트 질문입니다. 857 2019/11/29
16068     Re:TMainmenu 컴포넌트 질문입니다. 833 2019/11/29
16067     Re:TMainmenu 컴포넌트 질문입니다. 829 2019/11/29
16066     Re:TMainmenu 컴포넌트 질문입니다. 818 2019/11/29
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.