자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------

TCategoryButtons 의 동적생성 후 action의 문제

 

DB에서 TCategoryButtons.Categories 와

 

하위 Items를 끌고 와서 동적으로 생성을 하였는데

 

문제는 ActionList 에서 동적 생성이 문제가 된다는 점....

 

다른 방법으로 Click시 action을 하게 하는 방법이 있는지 궁금합니다.

 

동적생성을 하면 OnClick Event를 생성 시키지 못하는 단점이 있더군요.

 

아래는 TCategoryButtons 의 동적생성 코드 입니다.

 

catMenuItems = TCategoryButtons 입니다.

 

 

    // Menu Group

    DM.SysMenuGroupInfo.Open('T_SysMenuGroup');
    while not DM.SysMenuGroupInfo.eof do
    begin
      catMenuItems.Categories.Add();
      catMenuItems.Categories[DM.SysMenuGroupInfo.FieldByName('MenuTag').AsInteger - 1].Caption
        := DM.SysMenuGroupInfo.FieldByName('MenuGroupName').AsString;
      catMenuItems.Categories[DM.SysMenuGroupInfo.FieldByName('MenuTag').AsInteger - 1].Collapsed := true;
      DM.SysMenuGroupInfo.next;
    end;

 

    //Menu Item
      while not DM.Qry_Menupri.eof do
      begin
        catMenuItems.Categories[DM.Qry_Menupri.FieldByName('MenuGroupTag').AsInteger - 1].Items.Add();
        catMenuItems.Categories[FieldByName('MenuGroupTag').AsInteger - 1].Items[FieldByName('num').AsInteger - 1].caption
          := FieldByName('MenuName').AsString;
        catMenuItems.Categories[FieldByName('MenuGroupTag').AsInteger - 1].Items[FieldByName('num').AsInteger - 1].hint
          := FieldByName('MenuID').AsString;
        DM.Qry_Menupri.Next;
      end;

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15634
공지 유용한 관련 사이트 관리자2 2014.03.20 54464
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97828
2019 LME288 링크에러 [2] 한시민 2016.03.18 287
» TCategoryButtons 의 동적생성 후 action의 문제 [3] urong 2016.03.19 162
2017 XE10 Rest컴포넌트를 이용한 멀티디바이스 앱에서 TFDMemTable관련 에러 [2] 김태윤 2016.03.21 412
2016 pda폰 또는 안드로이드폰에 rfid 리더 모듈을 개발하려하는데 조언부탁드립니다. 여리낭군 2016.03.21 592
2015 [공유] 파이어몽키에서 Drag and drop은 어떻게 구현할 수 있나요? [1] 험프리 2016.03.21 317
2014 [공유] 실행 중 도형등의 크기를 변경하려면 어떻게 하나요? 험프리 2016.03.21 197
2013 [공유] 파이어몽키 스타일 적용방법 험프리 2016.03.21 167
2012 [공유] WebServer와 연동하는 예제나 컴퍼넌트가 있을까요? 험프리 2016.03.21 193
2011 TWebBrowser 컴포넌트 관련 사항 [2] 자객 2016.03.22 618
2010 아래의 TCategoryButtons 의 동적생성 후 action의 동적생성 재 문의 [3] urong 2016.03.22 182
2009 Delphi 10 Seattle Professional로 Upgrad중 입니다. [1] 도고래 2016.03.25 283
2008 가상키보드 처리 [2] 김태윤 2016.03.26 910
2007 [안드로이드] 앱 배포후 업데이트시 overwrite 안됩니다.해결방법좀 알려주세요 ㅠ. [2] 한사람 2016.03.27 1344
2006 xe7로 DataSnap 사용하여 3티어로 작성 한 프로그램 remort error: Error reading servermethods2.clientheight: property clientheight does not exist오류가 납니다 [3] file delphi 2016.03.29 780
2005 XE8 사용자입니다... [1] 악마 2016.03.30 231
2004 REST Debugger Json파싱 문의 [3] file 김태윤 2016.03.31 1463
2003 자동줄바꿈할 수 있는 텍스트 표시 컴포넌트 또는 방법(화면너비를 이용 등)이 있나요? [2] 김태윤 2016.04.01 1984
2002 파이어버드에서 Create문을 델파이에서 사용하는 방법이 있나요? [1] 김태윤 2016.04.01 260
2001 델파이로 파이어버드 DB생성 가능한가요? [2] 김태윤 2016.04.01 652
2000 인터넷 연결 가능 상태확인방법 알고 싶습니다. [1] 우석이 2016.04.04 1128