Chuột Enter/Leave tin nhắn không hoạt động?

Question

Tôi đang cố gắng phát hiện các thông báo nhập/rời chuột CM_MOUSEENTER và CM_MOUSELEAVE nhưng không bắt được. Tôi làm gì sai ở đây?

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

tôi đã tìm ra vấn đề của tôi: Tôi cũng đang sử dụng WM_NCHITTEST, nơi tôi đã đi qua KHÔNG inherited;. Tôi đã thêm vào, và bây giờ nó hoạt động tốt.