Скачать: CL | DM;

Обработка скроллирования   Найти похожие ветки 

← →
shamans   (2010-02-27 09:39) [0]

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

---

← →
DVM ©   (2010-02-27 09:42) [1]

wm_mousewheel

---

← →
shamans   (2010-02-27 09:57) [2]

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

---

← →
DVM ©   (2010-02-27 10:47) [3]

WM_VSCROLL, WM_HSCROLL

---

← →
shamans   (2010-03-11 13:08) [4]

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

---

← →
Омлет ©   (2010-03-12 09:01) [5]

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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.046 c