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

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

Мышки с колесиками [D6, Win2k]

Дмитрий-2 ©   (2002-12-12 21:09:00) 

Существуют модели мышек с колесиком :-)Для полос прокрутки. У меня Genius например. Подскажите как заставить дельфовские полосы прокрутки реагировать на колесико??

Заранее благодарен за ответ.
Дмитрий.

---

Matolch   (2002-12-13 02:32:00) [1]

Интересно, как это... специальные драйвера, конечно, неплохо, но придется их, так сказать, включать в комплект типа поставки, что. ли.

Приблизительно так

procedure TMainForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var Control: TControl;
begin
Control := FindDragTarget(MousePos, true);
if (Control = ScrollBox1) or (Control.Parent = ScrollBox1) then
with ScrollBox1.VertScrollBar do
Position := Position - WheelDelta div 12;
end;

---

Uncle Archi   (2002-12-12 21:22:00) [2]

Для Genius есть специальные драйвера, в которых при наводе на полосу прокрутки можно её крутить.(~1000)

---

Наверх