如何捕捉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