如何捕捉RichEdit上的OnScroll事件？

Question

我创建了一个具有scrollPos事件的自定义Rich。

，所以我有这样的代码：

procedure TCustomRich.WMVScroll(var Msg : TWMVScroll); 
begin 
    inherited; 
    if (Msg.ScrollCode in [SB_THUMBTRACK, SB_THUMBPOSITION]) then 
    FScrollY := Msg.Pos; 
    if Assigned(OnScroll) then 
    OnScroll(Self, FScrollX, FScrollY); 
end; 

procedure TCustomRich.WMHScroll(var Msg : TWMVScroll); 
begin 
    inherited; 
    if (Msg.ScrollCode in [SB_THUMBTRACK, SB_THUMBPOSITION]) then 
    FScrollX := Msg.Pos; 
    if Assigned(OnScroll) then 
    OnScroll(Self, FScrollX, FScrollY); 
end; 

但问题是，当它滚动使用按键或鼠标轮子它不会触发。

Answer 1

TRichEdit在这方面可能是一个尴尬的客户。您需要结合WM_VSCROLL和WM_HSCROLL消息处理EN_VSCROLL和EN_HSCROLL通知消息。

我发现了一个C++ Builder文章，显示需要什么：http://bcbjournal.com/bcbcaq/?loc=edits&caq=29