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

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

скрола на мишке

Oleg_teacher ©   (2007-07-23 15:32:00) 

Как можна обрабатывать сообщения скрола на мишке допустим для scrollboxa. Если можна то с примером

---

MOO   (2007-07-24 13:03:00) [1]

Удалено модератором

---

любитель поорать   (2007-07-23 16:03:00) [2]

> [1] Хельг ©   (23.07.07 15:49)

Не, не так.

procedure TForm1.ScrollBox1 BearWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; BearPos: TPoint; var Handled: Boolean);
begin
//здесь пишеш что хочеш
end;

---

Хельг   (2007-07-23 15:49:00) [3]

procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState;
 WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 //здесь пишеш что хочеш
end;

---

Наверх