Обнаружение прокрутки TMemo

Материал из DRKB

Обнаружение прокрутки TMemo[править | править код]

Создайте потомок TMemo, перехватывающий сообщения WM_HSCROLL и WM_VSCROLL:


type
  TSMemo = class(TMemo)
    procedure WM_HScroll(var Msg: TWMHScroll); message WM_HSCROLL;
    procedure WM_VScroll(var Msg: TWMVScroll); message WM_VSCROLL;
  end;

implementation

procedure TSMemo.WM_HScroll(var Msg: TWMHScroll);
begin
  ShowMessage('HScroll');
end;

procedure TSMemo.WM_VScroll(var Msg: TWMVScroll);
begin
  ShowMessage('VScroll');
end;


Source: http://delphiworld.narod.ru/
ID: 00999