गैर-विंडो वाले वर्गों में कस्टम संदेश - एक डिफ़ॉल्ट हैंडलर की आवश्यकता है?

Question

एक वर्ग (TObject) मेरे पास है के साथ:

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

जहां TH_MYMESSAGE = WM_USER + 1

वर्ग निर्माता में:

FHwnd := AllocateHWND(HandleMyMessage); 

केवल वस्तु जो प्राप्त करता है FHwnd के लिए एक संदर्भ के लिए एक निजी रिवाज है TThread (इस वर्ग के भीतर बनाया गया) और यह एकमात्र संदेश है जो TH_MYMESSAGE है। मेरी समझ यह है कि message प्रक्रिया घोषणा में निर्देश केवल TH_MYMESSAGE पर हैंडलिंग को प्रतिबंधित करता है।

यह परीक्षण में ठीक काम कर रहा था, लेकिन एक बड़े आवेदन में एकीकरण पर मुझे प्रतिक्रिया मिल रही है कि HandleMyMessage अन्य संदेशों के साथ भी फ़ायरिंग कर रहा है (स्पष्ट अवांछित परिणामों के साथ)।

HandleMyMessage में इसे आसानी से ठीक किया गया था। मेरा सवाल है: यह क्यों हो रहा है?

मेरे सबसे अच्छा अनुमान है कि AllocateHWNDHandleMyMessage यह message निर्देश होने के बावजूद एक DefWndProc के बराबर कर दिया गया है। क्या मुझे यह लागू करने का कोई सही तरीका है जिसे मैं याद कर रहा हूं?

Answer 1

ठीक है, हाँ। AllocateHWnd बनाई गई विंडो की विंडो प्रक्रिया के रूप में कार्य करने के लिए TWndMethod स्वीकार करता है। मुझे लगता है कि भ्रम, इस कारण है कि संकलक messsage निर्देश स्वीकार करता है। यह न रखें:

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; 

---

संपादित करें: (रिस्पांस टिप्पणी करने के लिए)। संदेश वर्ग है कि उपयोगिता खिड़की बनाई गई पर संभाला है के लिए, आप कर सकते हैं मार्ग खिड़की AllocateHWnd को अपनी कक्षा में पैदा करता है से अपने संदेश:

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;