Скачать: CL | DM;

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

← →
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, но такого нет....

---

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

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

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

---

← →
d@nger ©   (2007-01-11 14:00) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.048 c