Delphi禁用鼠标按钮并再次启用

Question

我需要禁用TRichEdit组件的事件OnMouseEnter上的两个鼠标按钮，并再次启用事件OnMouseLeave。

设置TRichEdit enabled = false并不能解决我的问题。

任何提示？

Answer 1

您可以对丰富的编辑进行子类化，以拦截鼠标按钮的向下/向上消息。然后你不需要看着鼠标进入，离开控制。例如：

type 
    TForm1 = class(TForm) 
    ... 
    private 
    FSaveRichEditProc: TWndMethod; 
    procedure RichEditWindowProc(var Message: TMessage); 
    .. 
    end; 

    ... 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    FSaveRichEditProc := RichEdit1.WindowProc; 
    RichEdit1.WindowProc := RichEditWindowProc; 
end; 

procedure TForm1.RichEditWindowProc(var Message: TMessage); 
begin 
    case Message.Msg of 
    WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK, 
    WM_MBUTTONDOWN, WM_MBUTTONUP, WM_MBUTTONDBLCLK, 
    WM_RBUTTONDOWN, WM_RBUTTONUP, WM_RBUTTONDBLCLK: 
     begin 
     Message.Result := 0; 
     Exit; 
     end; 
    end; 
    FSaveRichEditProc(Message); 
end;