Обнаружение прокрутки TMemo
Falk0ner, вс, 06/07/2008 - 15:34.
Обнаружение прокрутки TMemo Автор: Xavier Pacheco Создайте потомок 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);
begin
ShowMessage('HScroll');
end;
procedure TSMemo.WM_VScroll(var Msg: TWMVScroll);
begin
ShowMessage('VScroll');
end;
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);
begin
ShowMessage('HScroll');
end;
procedure TSMemo.WM_VScroll(var Msg: TWMVScroll);
begin
ShowMessage('VScroll');
end;
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий