TMemo 컨트롤에서 스크롤바 알림을받는 방법?

Question

VCL TMemo 컨트롤이있어서 텍스트를 스크롤 할 때마다 알림을 받아야합니다. OnScroll 이벤트가없고 스크롤 메시지가 상위 폼으로 전파되지 않는 것처럼 보입니다.

알림을받는 방법에 대한 아이디어가 있으십니까? 마지막 수단으로 나는 ... 외부 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;