DB에서 메뉴를 불러와서 ActionMainMenuBar 에 적용하고 싶은데요.

[이동건]

DB에서 사용자 메뉴를 읽어와서 ActionMainMenuBar 에 MainMenu 처럼 구성하려고 합니다.

ActionManager에서 드래그하면 메뉴가 생기는데

런타임 중에 ActionMainMenuBar 메뉴를 추가/또는 삭제는 어떻게 접근해야 될지 감이 안 잡힙니다.

참고할 사이트나 예제 있으시면  부탁드리겠습니다.

 

[c2design]

ActionMainMenuBar 의 메뉴 아이템을 동적으로 생성 하면 되는데

ActionMainMenuBar의 메뉴를 구성하는 방법이 다양 하므로 어떤식으로  메뉴을 만드셨는지 샘플 소스를 올려봐 주세요.

[이동건]

ActionMainMenuBar  동적으로 생성하는 방법을 좀 알려주시면 감사하겠습니다.

 

[c2design]

Action 을 먼저 동적 생성하고 이 Action을 메뉴에 넣어주면 됩니다.

개별로 Action 을 동적 생성하는 경우 ActionMainMenuBar 가 아닌 TMainMenu 를 사용 하면 됩니다.

기타 동적 생성 관련해서는 검색해 보면 많은 자료를 볼 수 있습니다.

procedure TMAForm.Button1Click(Sender: TObject);
var
  MyMenu1 : TMenuItem;
begin
  MyAction := TCustomAction.Create( ActionManager1  );
  MyAction.Category := 'main';
  MyAction.Caption := 'MyAction';
  MyAction.OnExecute := MyActionClick;

  ActionManager1.AddAction( MyAction,nil );

  MyMenu1 := TMenuItem.Create( MainMenu1 );
  MyMenu1.Name := 'MyMenu1';
  MyMenu1.caption := 'MyMenu1';
  MyMenu1.Action := MyAction;

  MainMenu1.Items[ 0 ].Add( MyMenu1 );
end;


procedure TMAForm.MyActionClick( Sender : TObject );
begin
  ShowMessage( 'My Action Click' );
end;

전체 소스 첨부 합니다.

MAUnit.dfm MAUnit.pas

[이동건]

제가 질문한 요지는 TMainMenu가 아니고 TActionMainMenubar에 동적으로 생성하는 방법을 알고 싶어서 질문 드린 것입니다.

TActionMainMenubar에 동적생성 예제가 제가 찾아보니 없어서 질문 드린 것입니다.

 

 

[c2design]

실행 헀을때 TMainMenu 와 TActionMainMenubar 의 차이는 없어 보이는데 TActionMainMenubar 를 꼭 사용하는 이유가 있나요 ?

찾아보니 TActionMainMenubar 동적 생성 샘플은 나와 있지 않는데 TActionMainMenubar 주 용도는 개별 메뉴항목의 동적생성이 아니라 미리 생성된 TAction을 드래그 해서 탑재하는 것이 주용도 이기 때문에 그런 것 같습니다.

 

[이동건]

Mainmenu 폰트 설정이나 풀다운 애니메이션이나 좀더 미려한 화면을 만들 수 있을 것 같아서 그렇습니다.

[c2design]

네...좀 더 찾아 보죠.