Колесико мышки

← →
D@Nger © (2007-01-11 12:50) [0]

Здравствуйте мастера! У меня на главной форме расположены в один столбик 12 кнопок. TabOrder у кнопок установлены с 1 по 12 с верху вниз. Я хочу при помощи колйсика мышки перемещаться по кнопкам. Я это реализовал, может быть не оптимально, но это работает, но фокус перемещается через одну. Мне кажется что событие формы OnMouseWheelDown и OnMouseWheelUp вызывается 2 раза за один шаг колесика. Никак не могу побороть это. Помогите!

← →
Правильный Вася (2007-01-11 13:06) [1]

кажется?
а отладчик что говорит?

← →
d@nger © (2007-01-11 13:11) [2]

Точно...я проверил..события OnMouseWheelDown и OnMouseWheelUp вызываются 2 раза.

← →
Джо © (2007-01-11 13:25) [3]

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin PostMessage (Handle, WM_NEXTDLGCTL,0,0); Handled := True end;
Вот и весь код. Для WheelUp — аналогично.

← →
d@nger © (2007-01-11 13:53) [4]

Спасибо!!! Работает!!! а какой message надо посылать чтобы перейти к предыдущему контролу? Я подумал, что wm_priordlgctl, но такого нет....

> [4] d@nger © (11.01.07 13:53)
> Спасибо!!! Работает!!! а какой message надо посылать чтобы
> перейти к предыдущему контролу? Я подумал, что wm_priordlgctl,
> но такого нет....

Много думать вредно.
Нужно справку почитать и все.

ааааа...понял...просто в третьем параметре 1 вместо 0 поставил....:)) Еще раз большое спасибо!!! я еще в API не сильно разбираюсь..

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