如何从TMemo控件获取滚动条通知

Question

我有一个VCL TMemo控件，每次滚动文本时都需要得到通知。没有OnScroll事件，滚动消息似乎不会传播到父窗体。

知道如何获得通知吗？作为最后的手段，我可以在OnScroll事件中放置外部TScrollBar并更新TMemo，但当我在TMemo中移动光标或滚动鼠标滚轮时，我必须保持它们同步。。。

Answer 1

您可以使用插入器类来处理WM_VSCROLL和WM_HSCROLL消息以及EN_VSCROLL和EN_HSCROLL通知代码（通过WM_COMMAND消息公开）。

试试这个样品

type
  TMemo  = class(Vcl.StdCtrls.TMemo)
  private
   procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;
   procedure WMVScroll(var Msg: TWMHScroll); message WM_VSCROLL;
   procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL;
  end;
  TForm16 = class(TForm)
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form16: TForm16;
implementation
{$R *.dfm}

{ TMemo }
procedure TMemo.CNCommand(var Message: TWMCommand);
begin
   case Message.NotifyCode of
    EN_VSCROLL : OutputDebugString('EN_VSCROLL');
    EN_HSCROLL : OutputDebugString('EN_HSCROLL');
   end;
   inherited ;
end;
procedure TMemo.WMHScroll(var Msg: TWMHScroll);
begin
   OutputDebugString('WM_HSCROLL') ;
   inherited;
end;
procedure TMemo.WMVScroll(var Msg: TWMHScroll);
begin
   OutputDebugString('WM_HSCROLL') ;
   inherited;
end;

Answer 2

您可以在运行时将Memo的WindowProc属性子类化，以捕获发送到Memo的所有消息，例如：

private:
    TWndMethod PrevMemoWndProc;
    void __fastcall MemoWndProc(TMessage &Message);

__fastcall TMyForm::TMyForm(TComponent *Owner)
    : TForm(Owner)
{
    PrevMemoWndProc = Memo1->WindowProc;
    Memo1->WindowProc = MemoWndProc;
}
void __fastcall TMyForm::MemoWndProc(TMessage &Message)
{
    switch (Message.Msg)
    {
        case CN_COMMAND:
        {
            switch (reinterpret_cast<TWMCommand&>(Message).NotifyCode)
            {
                case EN_VSCROLL:
                {
                    //...
                    break;
                }
                case EN_HSCROLL:
                {
                    //...
                    break;
                }
            }
            break;
        }
        case WM_HSCROLL:
        {
            //...
            break;
        }
        case WM_VSCROLL:
        {
            //...
            break;
        }
    }
    PrevMemoWndProc(Message);
}