Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 546

•  TDictionary Custom Sort  6 575

•  Fast Watermark Sources  6 345

•  3D Designer  9 294

•  Sik Screen Capture  6 679

•  Patch Maker  7 050

•  Айболит (remote control)  7 062

•  ListBox Drag & Drop  5 931

•  Доска для игры Реверси  97 411

•  Графические эффекты  7 267

•  Рисование по маске  6 564

•  Перетаскивание изображений  5 434

•  Canvas Drawing  5 800

•  Рисование Луны  5 506

•  Поворот изображения  5 037

•  Рисование стержней  3 591

•  Paint on Shape  2 843

•  Генератор кроссвордов  3 722

•  Головоломка Paletto  3 000

•  Теорема Монжа об окружностях  3 803

•  Пазл Numbrix  2 505

•  Заборы и коммивояжеры  3 193

•  Игра HIP  2 162

•  Игра Go (Го)  2 095

•  Симулятор лифта  2 469

•  Программа укладки плитки  2 134

•  Генератор лабиринта  2 610

•  Проверка числового ввода  2 288

•  HEX View  2 621

•  Физический маятник  2 231

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Обнаружение прокрутки 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;





Похожие по теме исходники

BTMemoryModule