windows - 如何在 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 在这方面可能是一个尴尬的客户。您需要处理 EN_VSCROLL和 EN_HSCROLL 通知消息连同 WM_VSCROLL 和 WM_HSCROLL 消息。

我找到了一篇 C++ Builder 文章，其中显示了所需内容:http://bcbjournal.com/bcbcaq/?loc=edits&caq=29