Советы по Delphi



         

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


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

TSMemo = class(TMemo)procedure WM_HScroll(var Msg: TWMHScroll); message WM_HSCROLL;procedure WM_VScroll(var Msg: TWMVScroll); message WM_VSCROLL;end;
..
procedure
TSMemo.WM_HScroll(var Msg: TWMHScroll);beginShowMessage('HScroll');end;
procedure TSMemo.WM_VScroll(var Msg: TWMVScroll);beginShowMessage('VScroll');end;

- Xavier Pacheco [000803]




Содержание  Назад  Вперед