Текущий архив: 2007.01.28;
Скачать: 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 вся ветка
Текущий архив: 2007.01.28;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.05 c
