माउस एंटर/संदेश पोस्ट नहीं कर रहे हैं?

Question

मैं माउस दर्ज करने/संदेशों को CM_MOUSEENTER और CM_MOUSELEAVE पर जाने का प्रयास कर रहा हूं लेकिन यह इसे पकड़ नहीं रहा है। मुझसे यहां क्या गलत हो रहा है?

type 
    TMyControl = class(TCustomControl) 
    private 
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; 
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; 
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST; 
    end; 

procedure TMyControl.CMMouseEnter(var Message: TMessage); 
begin 
    //Handle mouse entering 
    //Breakpoint never reached, procedure never called 
end; 

procedure TMyControl.CMMouseLeave(var Message: TMessage); 
begin 
    //Handle mouse leaving 
    //Breakpoint never reached, procedure never called 
end; 

procedure TMyControl.WMNCHitTest(var Message: TWMNCHitTest); 
var 
    Ch: Bool; 
begin 
    if csDesigning in ComponentState then 
    Message.Result := HTCLIENT 
    else begin 
    Ch:= False; 

    //Do checks and pass `Ch:= True;` if something changed... 

    if Ch then Invalidate; 
    end; 
end; 

Answer 1

मैं पता लगा मेरी समस्या: मैं भी WM_NCHITTEST, जहाँ मैं नहीं गुजर रहा था inherited; उपयोग कर रहा हूँ। मैंने इसे जोड़ा, और अब यह ठीक काम करता है।