如何在RichEdit上捕获OnScroll事件？

如何解决如何在RichEdit上捕获OnScroll事件？

| 我创建了一个具有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,FScrollY);
end;

但问题是使用键或鼠标滚轮滚动时不会触发。

解决方法

ѭ1在这方面可能是一个尴尬的客户。您需要与WM_VSCROLL和WM_HSCROLL消息一起处理EN_VSCROLL和EN_HSCROLL通知消息。我找到了一条C ++ Builder文章，其中显示了所需的内容：http://bcbjournal.com/bcbcaq/?loc=edits&caq=29