| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Обработка скроллирования [D7, D2005]

shamans ©   (2010-02-27 09:39:00) 

Подскажите пожалуйста, как перехватить обработку скроллирования пользователем на формеприложения?

---

Омлет   (2010-03-12 09:01:00) [1]

type
 TForm1 = class(TForm)
   Memo1: TMemo;
 private
   procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
   procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
 end;

procedure TForm1.WMHScroll(var Message: TWMHScroll);
begin
 Caption := IntToStr(Message.Pos);
 inherited;
end;

procedure TForm1.WMVScroll(var Message: TWMVScroll);
begin
 Caption := IntToStr(Message.Pos);
 inherited;
end;


---

shamans   (2010-03-11 13:08:00) [2]

пример перехвата подскажите пожалуйста

---

DVM   (2010-02-27 10:47:00) [3]

WM_VSCROLL, WM_HSCROLL

---

shamans   (2010-02-27 09:57:00) [4]

я имел ввиду кода пользователь берет за полосу прокрутки и тянет ее

---

DVM   (2010-02-27 09:42:00) [5]

wm_mousewheel

---

Наверх