Niestandardowe wiadomości w klasach bez okien - potrzebujesz domyślnego programu obsługi?

Question

z klasą (TObject) mam:

private 
    FHwnd : HWND; 
    procedure HandleMyMessage(var Message : TMessage); message TH_MYMESSAGE; 

gdzie TH_MYMESSAGE = WM_USER + 1

W konstruktorze klasy:

FHwnd := AllocateHWND(HandleMyMessage); 

Jedynym obiektem, który otrzymuje odniesienie do FHwnd jest prywatny zwyczaj TThread (utworzone w tej klasie) i jedyny komunikat, który publikuje to TH_MYMESSAGE. Rozumiem, że dyrektywa message w deklaracji proceduralnej ogranicza obsługę tylko do TH_MYMESSAGE.

To działało dobrze podczas testowania, ale po integracji z dużo większą aplikacją otrzymuję informację zwrotną, że HandleMyMessage wystrzeliwuje również dla innych wiadomości (z oczywistymi niepożądanymi wynikami).

Zostało to łatwo naprawione przez dodanie if Message.Msg <> TH_MYMESSAGE then Exit; w HandleMyMessage. Moje pytanie brzmi: dlaczego tak się dzieje?

Domyślam się, że AllocateHWND dokonał HandleMyMessage odpowiednika DefWndProc, mimo że ma dyrektywę message. Czy istnieje właściwy sposób wdrożenia tego, czego mi brakuje?

Answer 1

No tak, oczywiście. AllocateHWnd akceptuje TWndMethod jako procedurę okna utworzonego okna. Zamieszanie, jak sądzę, jest spowodowane tym, że kompilator akceptuje dyrektywę messsage. Nie należy umieszczać go:

private 
    FHwnd : HWND; 
    procedure HandleMyMessage(var Message : TMessage); 

.. 

procedure TMyClass.HandleMyMessage(var Message: TMessage); 
begin 
    case Message.Msg of 
    TH_MYMESSAGE: // 
    end; 
    Message.Result := DefWindowProc(FHWnd, Message.Msg, Message.WParam, Message.LParam); 
end; 

---

edit: (Odpowiedź na komentarz). Aby mieć komunikat obsługiwane na klasy, który stworzył okno użytkową można trasa wiadomość z okna AllocateHWnd tworzy się klasy:

private 
    FHwnd : HWND; 
    procedure HandleMyMessage(var Message : TMessage); 
    procedure THMyMessage(var Message: TMessage); message TH_MYMESSAGE; 

.. 

procedure TMyClass.HandleMyMessage(var Message: TMessage); 
begin 
    case Message.Msg of 
    TH_MYMESSAGE: Dispatch(Message); 
    end; 
    Message.Result := DefWindowProc(FHWnd, Message.Msg, Message.WParam, Message.LParam); 
end; 

procedure TMyClass.THMyMessage(var Message: TMessage); 
begin 
    // 
end;