ActionMainMenuBar에서 기본 메뉴 (= 카테고리, TAction 하위 메뉴를 통해)에 OnClick 이벤트를 추가하는 방법은 무엇입니까?

Question

내 좋은 옛날 TMainMenu을 TActionMainMenuBar으로 바꾸 겠지만 문제가 있습니다.

현재 내 메인 메뉴 항목 인 'OnClick'처리기를 사용하고 있지만 TActionMainMenuBar과 동일한 동작을 재현 할 수있는 방법을 찾을 수 없습니다.

예를 들어 TAction "테스트"카테고리를 "샘플"로 만들고 이것을 TActionMainMenuBar에 드래그 앤 드롭합니다. 서브 메뉴 "Test"의 실행 핸들러에 TAction이 할당되었으므로 코드를 추가 할 수 있지만 "Category"/ TActionClientItem 중 하나이기 때문에 주 메뉴 항목 "Sample"에 이벤트 코드를 추가 할 수 없습니다. 이벤트가없는 "테스트".

이 액션을 TActionClientItem에 할당하려고 시도했지만 Delphi XE3에서 "속성을 설정할 수 없습니다 ..."라고 말하면서 클릭하면 "현재 프레임 워크에 구현되지 않은 작업 '없음'"이라는 메시지가 나타납니다. " .

또 다른 방법은, "샘플"및 "테스트"를 "(카테고리 없음)"이지만 "테스트"를 "샘플"의 하위 메뉴로 끌어다 놓을 수는 없습니다 전에 TActionMenuBar 빈 메뉴 메뉴 항목에는 하위 메뉴 항목이 아니라 주 메뉴 항목 만 드래그/드롭 할 수있는 것처럼 보입니다.

Answer 1

메인 메뉴 항목의 OnClick 처리기를 사용하는 목적은 대개 하위 메뉴 항목의 활성화/비활성화 또는 표시 여부를 결정하는 것입니다. 당신이/비활성화 동일한 기능을 수행하는 도구 모음 단추 같은 것들을 가능하게 곳은 또한 보통이다 :

procedure TForm1.MyMainMenuItemClick(Sender: TObject); 
begin 
    SomeMenuItem.Enabled := SomeConditionTest; 
    SomeToolButton.Enabled := SomeMenuItem.Enabled; 
    AnotherMenuItem.Enabled := AnotherConditionTest; 
    AnotherToolButton.Enabled := AnotherMenuItem.Enabled; 
end; 

TActionMainMenuBar에 대한 항목을,이는 OnUpdate 이벤트에 대신 개별 행동 않습니다. 이 기능은 작업을 활성화/비활성화 할 때 작업에 연결된 모든 컨트롤도 동시에 활성화/비활성화 할 수 있다는 이점이 있습니다. OnUpdate 이벤트가 자식 항목이 이전 주 메뉴 항목의 OnClick를 호출 할 것 같은 시간 인 표시되는 직전이라고

procedure TForm1.SomeActionUpdate(Sender: TObject); 
begin 
    SomeAction.Enabled := SomeConditionTest; // Also controls the toolbutton 
end; 

procedure TForm1.AnotherActionUpdate(Sender: TObject); 
begin 
    AnotherAction.Enabled := AnotherConditionTest; // Toolbutton too. 
end; 

.