Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.053 c
15-1168463921
PHPdeveloper
2007-01-11 00:18
2007.01.28
бизнес модель ShareWare продукта


2-1168169514
mike-d
2007-01-07 14:31
2007.01.28
Проверка имени создаваемого файла


15-1167857316
rolex
2007-01-03 23:48
2007.01.28
NEC 1100


1-1165427944
du_hast
2006-12-06 20:59
2007.01.28
Принудительный вызов Hint -а


2-1168303037
Antoxa2005
2007-01-09 03:37
2007.01.28
Ко такое? Вопрос покажется странным, но не знаю, как назначить пр





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский