1

Изначально Label1.Caption приравниваем к нулю. Имееться вот такой исходный код:

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+1);
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Label1.Caption:=IntToStr(StrToInt(Label1.Caption)-1);
end;

У меня задача отловить сколько раз было совершено действие скролом "Вверх" и "Вниз" и запустить соответствующую функцию. Иходник работает но почему он выполняться дважды??? И как сделать чтоб он выполнялся один раз?

4
  • Нормально все работает. Вниз +1, верх -1.
    – KiTE
    5 янв 2012 в 6:06
  • Извините забыл сказать... Все верно +1 и -1 срабатывает если на форме нет каких либо других компонентов. Но если вы внесёте компонент Edit или Button и заведомо перейдёте на компоненты "Tab-ом" или просто щёлкните мышкой то тут же начинает считать +2 и -2.
    – p_redator
    6 янв 2012 в 5:12
  • @p_redator, не забудьте принять верный ответ.
    – angry
    6 янв 2012 в 12:48
  • У меня аналогичная проблема с приложением на С++: MouseWheelDown & MouseWheelUp обрабатываются дважды на один шаг колесика мыши. Есть ли в С аналог Handled := True; ? 15 мар 2019 в 10:13

2 ответа 2

2

Добавь в каждый обработчик:

Handled := True;

чтобы получилось так:

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Handled := True;
  Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+1);
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Handled := True;
  Label1.Caption:=IntToStr(StrToInt(Label1.Caption)-1);
end;

Будет считать только один раз.

5
  • Спасибо большое! Работает как часы! На компонентах Edit или Button данный метод работает, а в DBGrid этот исходник не прорабатывает процедуры "FormMouseWheelDown" и "FormMouseWheelUp". Не подскажите что нужно сделать? или для этого нужно новый вопрос создавать?
    – p_redator
    6 янв 2012 в 8:47
  • Стандартное поведение скролинга в DBGrid не зависит от обработчиков событий OnMouseWheelDown и OnMouseWheelUp на форме. Как решить вопрос сходу не подскажу, потому что давно не использую его в своих проектах.
    – KiTE
    6 янв 2012 в 9:00
  • А может подскажете какой вы используете компонент вместо DBGrid ?
    – p_redator
    6 янв 2012 в 9:47
  • Для простых таблиц cxDBGrid (пакет DevExpress). Он поддерживает связку с источником данных через DataSource. Если нужен вариант с гибкой кастомизацией то VirtualStringTree (из [VirtualTreeView][1]). [1]: code.google.com/p/virtual-treeview
    – KiTE
    6 янв 2012 в 10:08
  • А вы уверены что в пакете cxDBGrid есть "скроллинг" и его можно отловить??? rxlib.ru/rx/rxDBAware/RxDBGrid/index.htm Здесь описаны Events ( События ) Key events и нечего подобного там не описываеться Пробовал установить EhLib делаю все по интсрукции нажимаю Compile потом Instal и он мне говорит "Cannot load package Ehlib60. It contains unit DBgridEh which is also contained dclusr60"
    – p_redator
    9 янв 2012 в 4:51
0

Вообще советую в этих целях использовать компонент UpDown, находящийся на панели Win32.

3
  • Возможно чего-то недопонимаю, но как можно использовать компонент UpDown если у меня задача отловить скроллинг и желательно чтоб процедура выполнялась один раз.
    – p_redator
    6 янв 2012 в 5:20
  • Можно установить у компонента UpDown В свойстве associate нужный вам Edit, потом вы должны отлавливать скроллинг в форме событиями "FormMouseWheelDown" и "FormMouseWheelUp", ну и наконец если скроллинг пойман, то устанавливаете фокус ввода на Edit1. (Edit1.SetFocus())
    – AseN
    6 янв 2012 в 6:56
  • Спасибо большое за отклик, но события "FormMouseWheelDown" и "FormMouseWheelUp" отлавливаються без компонента UpDown.
    – p_redator
    6 янв 2012 в 8:41

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.