Delphi Pop Up 메뉴 가시성

Question

Visible 속성이 없기 때문에 Delphi 7에서 팝업 메뉴가 표시되는지 (화면에 표시되는지) 확인해야합니다.

Answer 1

OnPopup 이벤트에서 플래그를 설정할 수 있습니다. 문제는 팝업 메뉴가 닫힐 때를 아는 것입니다. Peter Below에 대한 해결책이 있습니다.

하지만 왜 내가이 질문을 원하니? 어쩌면 근원적 인 문제를 해결할 더 좋은 방법이있을 수 있습니다.

Answer 2

이 조금 더 간단 할 것 같다 (I 2007 델파이 사용) :

당신의 WM_CONTEXTMENU 메시지 처리기에서 상속 된 핸들러를 호출하기 전에, 팝업 메뉴를 사용하면 플래그를 설정할 수 있습니다, 표시하는 것입니다. inherited를 호출 한 후 팝업 메뉴가 닫히고 플래그를 재설정합니다.

procedure TForm1.WMContextMenu(var Message: TWMContextMenu); 
begin 
    FPopupActive := True; 
    try 
    OutputDebugString(PChar(Format('popup opening', []))); 
    inherited; 
    finally 
    FPopupActive := False; 
    OutputDebugString(PChar(Format('popup closed', []))); 
    end; 
end;