사용자 정의 메시지를 두 번 가로채는 방법은 무엇입니까?

사용자 정의 PostMessage (WM_GROUPUNGROUP)를 보내고 WM_GROUPUNGROUP을 처리하기위한 사용자 지정 메시지 처리기가있는 KeyDown 처리기가 내부적으로있는 구성 요소를 사용하고 있습니다.사용자 정의 메시지를 두 번 가로채는 방법은 무엇입니까?

구성 요소 코드를 수정하지 않고이 메시지 처리기를 실행 한 후에 내 앱에서 작업을 수행하기를 원합니다.

(어떻게) 할 수 있습니까?

출처

2013-09-26 Jan Doggen

해당 구성 요소에 대한 인터 포저 클래스를 만들고 해당 WM_GROUPUNGROUP 메시지를 잡아 내고 응용 프로그램에 바인딩 할 'OnGroupUngroup'과 같은 새 이벤트를 발생 시키십시오. – TLama

@TLama 모든 인스턴스화를 삽입 할 수있는 경우에만 작동합니다. –

@ David, 나는 메모하지 않습니다. 여러분이 제안한대로'WindowProc'을 변경할 수 있다면 왜 uses 절에 하나의 유닛 (인터셉터를 포함하고있는)을 추가 할 수 없습니까? 그리고 그 차단은 해당 유닛에서 사용 된 모든 인스턴스에 대해 한 번만 적용됩니다. – TLama

이것을 달성하는 한 가지 방법은 WindowProc 속성을 사용하는 것입니다.

후크하려는 인스턴스의 WindowProc에 할당하여 사용자 고유의 창 프로 시저를 제공하십시오. 원래 처리가 수행되었는지 확인할 수 있도록 이전 값인 WindowProc으로 사본을 가져와야합니다.

는 대략은 다음과 같이 진행됩니다

procedure TMyClass.NewWindowProc(var Message: TMessage); 
begin 
    FOldWindowProc(Message); 
    if Message.Msg = WM_GROUPUNGROUP then 
    .... 
end;

FOldWindowProc := SomeControl.WindowProc; 
SomeControl.WindowProc := NewWindowProc;

는 다음과 같은 새로운 윈도우 프로 시저를 구현 :

type 
    TMyClass = class 
    .... 
    FOldWindowProc: TWndMethod; 
    procedure NewWindowProc(var Message: TMessage); 
    .... 
    end;

이 이렇게 윈도우 프로 시저를 리디렉션하려면 당신은 컨트롤을 끝내고, 이전 윈도우 프로 시저를 다시 제 위치에 놓습니다 :

SomeControl.WindowProc := FOldWindowProc;

또 다른 방법은 메시지가 대기열에 있다는 사실을 이용하는 것입니다. 대체로 TApplicationEvents 개체를 사용하여 Application.OnMessage 처리기를 추가 할 수 있습니다. 그러면 대기중인 모든 메시지가 표시됩니다. 그러나 OnMessage은 메시지가 컨트롤에 전달되기 전에 발생합니다.이 메시지는 잘못된 방향 일 수 있습니다.

출처

2013-09-26 13:59:20

고마워, 그게 잘됐다. FormCreate에 WindowProc의 구성 요소를 연결하고 FormDestroy에서 FOldWindowPoc에 깨끗하게 다시 할당합니다. –

'처리 됨'을 true로 설정하고 OnMessage 처리기에 수동으로 메시지를 디스패치하고 (DispatchMessage) 실행 순서가 중요한 경우 작업을 수행 할 수 있습니다. –

사용자 정의 메시지를 두 번 가로채는 방법은 무엇입니까?

답변

관련 문제