У меня Delphi 5
Хотелось бы знать как отловить вращение колёсика мышки. По факьюшкам, помнится, рылся, дак там только его наличие можно было выявить. А ещё я тут глумлюсь над StringGrid'ом и мне не нужно чтобы маркер ползал от колеса. Может быть его и перехватить можно как-нибудь?

Всем заранее спасибо.

здается мне, что нужно добавлять событие к компоненте TStringGrid OnMouseWheel, такое как в DBGrid`е

Какие ужасные проблеммы... В Delphi 7 есть стандастные события: OnMouseWheel, OnMouseWheelUp, OnMouseWheelDown.

Если конечно хочется помучиться, то придется отслеживать сообщения форме.
Ждать сообщения WM_MOUSEWHEEL. Оно тебе заодно и скажет, куда крутить: вверх или вниз. Только оно работает не во всех версиях Win. В >=2k работает точно. Про остальные не скажу.

Цитата

Какие ужасные проблеммы... В Delphi 7 есть стандастные события: OnMouseWheel, OnMouseWheelUp, OnMouseWheelDown.

в TStingGrid нету

Snowy, зарегистрируйся раз такие полезные сообщения даёшь!

Точно, поправочка. У StringGreed нет OnMouseWheel. Есть только OnMouseWheelUp, OnMouseWheelDown. Хотя это не многое меняет. Однако было бы полезно ловить именно сообщения формы, а не грида, т.к. грид и сам по колесу двигает ползунок, а вот, если фокус не на гриде, то в данном случае скролить область грида, а не позицию. Хотя можно совместить полезное с приятным и просто посадить на форму TApplicationEvents. А у него уже следить, что:

if Msg.Message=WM_MOUSEWHEEL then
if Msg.lParam<0 then вверх
else вниз;

В данном случае будет работать везде.

Цитата(Snowy @ 13.10.2004, 17:06)

if Msg.Message=WM_MOUSEWHEEL then if Msg.lParam<0 then вверх else вниз;

Это точно рабочий пример?! нет, я не-то чтобы не верю Snowy, просто щас на компе проверял, там lParam меняется только если координаты гызуна сдвинулсь, а реально данные находятся в wParam с точночтью до наоборот т.е. <0 значит вниз >0 наверх.
Может быть у меня с компом че-то? т.к. уже столкнулся с тем что он как-то неесовсем правильно работает. см. тут

Конечно нет. Что-то я ляпнул на скорую руку не подумавши.
Рабочий код такой:

Код

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;  var Handled: Boolean); begin  if Msg.Message=WM_MOUSEWHEEL then    if Msg.wParam>0 then вверх    else 'вниз'; end;

Отловить та отловили всё хорошо.
Но мне надо програмно покрутить им как это сделать. Какие функции здесь нужны?

Спасибо.

Я делал так (для Memo)

PS: IsCursor - функция для определения положения курсора, над Мемо он находится или нет 

Это сообщение отредактировал(а) v258 - 24.10.2009, 19:53