Прокрутка колесом мышки

← →
inwin (2003-10-10 12:21) [0]

Как сделать эффект вертикальной прокрутки посредством колесика мыши, даже если компонент, над которым находится курсор, не имееет фокуса? А то сейчас прокручивается именно компонент с фокусом, даже если мышка находится в другом конце экрана.

← →
Семен Сорокин © (2003-10-10 12:24) [1]

см. onMouseWheel, onMouseWheelDown, onMouseWheelUp у формы (D7)

← →
inwin (2003-10-10 12:50) [2]

> Семен Сорокин
А как определить, над каким компонентом я нахожусь?

← →
BOA_KAA © (2003-10-10 12:53) [3]

По координатам...

← →
inwin (2003-10-10 13:10) [4]

> BOA_KAA
Ценю юмор, но в данном случае я имел ввижу какие методы существуют для этого?

← →
TUser © (2003-10-10 13:15) [5]

Объект TMouse вернет тебе координаты мыши.

← →
BOA_KAA © (2003-10-10 13:19) [6]

Например, CalcCursorPos и иже с ним

← →
inwin (2003-10-10 13:20) [7]

Кхе, я не так выражаюсь? "А как определить, над каким компонентом я нахожусь?" Ясно, что по координатам, но КАК ПО КООРДИНАТАМ ОПРЕДЕЛИТЬ НАД КАКИМ КОМПОНЕНТАМ НАХОДИТСЯ КУРСОР???!!!

← →
inwin (2003-10-10 13:22) [8]

> BOA_KAA
А чей это метод - CalcCursorPos? Не нашел о нем упоминаний.

← →
BOA_KAA © (2003-10-10 13:26) [9]

TControl

Можно пробежаться по компонентам, сделать ClientToScreen и сравнить

← →
inwin (2003-10-10 13:35) [10]

> BOA_KAA
TControl не имеет метода CalcCursorPos...

Delphi ?.?

Эта тема уже много раз тут пробегала - поищи. Возможно даже уже в FAQ попало.

А кстати зачем это? Может при попытке прокрутки сфокусировать нужный компонент?

Прокрутка колесом мышки Найти похожие ветки