如何從TMemo控件獲取滾動條通知？

Question

我有一個VCL TMemo控件，每次滾動文本時都需要通知。沒有事件，滾動消息似乎不會傳播到父窗體。

任何想法如何獲得通知？ 作爲最後的手段，我可​​以把外部TScrollBar並更新OnScroll事件TMemo，但我必須保持同步，當我將光標移動或滾動TMemo鼠標滾輪...

Answer 1

您可以在運行時繼承備忘錄的WindowProc屬性來捕獲所有發送到備忘錄的消息，例如：

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;