Как получить уведомления полосы прокрутки от элемента управления TMemo?

Question

У меня есть VCL TMemo контроль и должны быть уведомлены каждый раз, когда текст прокручивается. Здесь нет OnScroll событие и сообщения прокрутки, кажется, не распространяются до родительской формы.

Есть идеи, как получить уведомление? В крайнем случае я могу разместить внешний TScrollBar и обновить TMemo в OnScroll событие, но затем я должен держать их в синхронизации, когда я перемещаю курсор или прокручиваю колесо мыши в TMemo...

Answer 1

Вы можете подкласс Memo's 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);
}

Answer 2

Вы можете использовать промежуточный класс для обработки 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;