Скролл колесиком мыши

@ksv_uk · Регистрация: 04.03.2011

Студворк — интернет-сервис помощи студентам

Уважаемые коллеги!
Помогите решить проблему. Есть форма, на форме ScrollBox, на ScrollBox кидаю Image.
Как при прокрутке колесика мышки, сделать так чтобы осуществлялась прокрутка содержимого канвы имейджа?

вот это не помогает

C++
1
2
3
4
5
6
void __fastcall TSDIAppForm::ScrollBox1MouseWheel(TObject *Sender,
      TShiftState Shift, int WheelDelta, TPoint &MousePos, bool &Handled)
{
   ScrollBox1->VertScrollBar->Position -= WheelDelta;
 
}

@gumi250 · 11.10.2013, 17:00

Событие OnMouseWheel самой формы

C++
1
2
3
4
5
void __fastcall TForm1::FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
                    TPoint &MousePos, bool &Handled)
{
         ScrollBox1->VertScrollBar->Position -= WheelDelta;
}

@ksv_uk · 11.10.2013, 17:12 **[ТС]**

C++
1
TSDIAppForm::ScrollBox1MouseWheel

у меня это и есть форма SDI приложения, другой формы нет. Использую bcb 6 и windows xp

Добавлено через 1 минуту
да, в обработчик ScrollBox1MouseWheel добавил вывод сообщения, так вот при прокрутке колесика, оно выводится, но сама прокрутка не осуществляется

@gumi250 · 11.10.2013, 17:16

Нужно событие OnMouseWheel не от ScrollBox, а от самой формы

@ksv_uk · 11.10.2013, 17:34 **[ТС]**

на событии формы тоже не работает

@gumi250 · 11.10.2013, 17:42

Builder XE. Win7. На события ScrollBox не работает, на событие формы работает.

Сообщение от ksv_uk

оно выводится, но сама прокрутка не осуществляется

А если сделать кнопочку в обработчик которой написать

C++
1
ScrollBox1->VertScrollBar->Position -= WheelDelta;

эффект будет?

@Sasha · 12.10.2013, 10:47

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
// В классе
private:     
        void __fastcall MyScrollBoxWndProc(Messages::TMessage &Message);
        TWndMethod OldScrollBoxWndProc;
 
//------------------------------------------------------------------------
void __fastcall TStaticF1::FormCreate(TObject *Sender)
{
   OldScrollBoxWndProc = StaticF1->WindowProc;
   StaticF1->WindowProc = MyScrollBoxWndProc;
 
//--------------------------------------------------------------------------
void __fastcall TStaticF1::MyScrollBoxWndProc(Messages::TMessage &Message)
{
   switch(Message.WParam)
        {
         case VK_DOWN:
           {
             ScrollBox1->VertScrollBar->Position++;
             break;
           }
         case VK_UP:
           {
             ScrollBox1->VertScrollBar->Position--;
             break;
           }
        }
        OldScrollBoxWndProc(Message);
 
}
 
//--------------------------------------------------------------------
void __fastcall TStaticF1::ScrollBox1MouseWheel(TObject *Sender,
      TShiftState Shift, int WheelDelta, TPoint &MousePos, bool &Handled)
{
  ScrollBox1->VertScrollBar->Position -= WheelDelta;
}

@gumi250 · 12.10.2013, 11:48

Sasha, по симптомам TC ваш код у него тоже работать не станет.

Сообщение от ksv_uk

да, в обработчик ScrollBox1MouseWheel добавил вывод сообщения, так вот при прокрутке колесика, оно выводится, но сама прокрутка не осуществляется

@ksv_uk · 14.10.2013, 09:23 **[ТС]**

Сообщение от Sasha

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
// В классе
private:     
        void __fastcall MyScrollBoxWndProc(Messages::TMessage &Message);
        TWndMethod OldScrollBoxWndProc;
 
//------------------------------------------------------------------------
void __fastcall TStaticF1::FormCreate(TObject *Sender)
{
   OldScrollBoxWndProc = StaticF1->WindowProc;
   StaticF1->WindowProc = MyScrollBoxWndProc;
 
//--------------------------------------------------------------------------
void __fastcall TStaticF1::MyScrollBoxWndProc(Messages::TMessage &Message)
{
   switch(Message.WParam)
        {
         case VK_DOWN:
           {
             ScrollBox1->VertScrollBar->Position++;
             break;
           }
         case VK_UP:
           {
             ScrollBox1->VertScrollBar->Position--;
             break;
           }
        }
        OldScrollBoxWndProc(Message);
 
}
 
//--------------------------------------------------------------------
void __fastcall TStaticF1::ScrollBox1MouseWheel(TObject *Sender,
      TShiftState Shift, int WheelDelta, TPoint &MousePos, bool &Handled)
{
  ScrollBox1->VertScrollBar->Position -= WheelDelta;
}

Да, этот код тоже не работает. Кнопками вверх-вниз прокрутка осуществляется, а колесиком мыши нет. ОС- XP, среда разработки - BCB 6. Приложение SDI. Использовал ScrollBox, на ScrollBox'е разместил Image.

@SatanaXIII · 14.10.2013, 10:23

Собака порылась в фокусе. В ScrollBox-е лежит Image, который отрисовывается последним, и по этому получает фокус.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ScrollBox1MouseWheelDown(TObject *Sender,
      TShiftState Shift, TPoint &MousePos, bool &Handled)
{
ScrollBox1->VertScrollBar->Position++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBox1MouseWheelUp(TObject *Sender,
      TShiftState Shift, TPoint &MousePos, bool &Handled)
{
ScrollBox1->VertScrollBar->Position--;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseWheel(TObject *Sender, TShiftState Shift,
      int WheelDelta, TPoint &MousePos, bool &Handled)
{
TPoint p = ScreenToClient(MousePos);
 
if( p.x > ScrollBox1->Left &&                    // Если колесо крутится внутри скроллбокса
    p.x < ScrollBox1->Left+ScrollBox1->Width &&  //  тогда передаем ему фокус
    p.y > ScrollBox1->Top &&
    p.y < ScrollBox1->Top+ScrollBox1->Height )
  {
  ScrollBox1->SetFocus();
  }
else
  {
  this->SetFocus();                              // Иначе сбрасываем
  this->DefocusControl(this, 0);
  }
}
//---------------------------------------------------------------------------

@ksv_uk · 14.10.2013, 10:41 **[ТС]**

спасибо, так работает

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@gumi250 435 / 402 / 57 Регистрация: 06.02.2012 Сообщений: 1,384
	11.10.2013, 17:16
	Нужно событие OnMouseWheel не от ScrollBox, а от самой формы 0

@ksv_uk 7 / 7 / 1 Регистрация: 04.03.2011 Сообщений: 87
	11.10.2013, 17:34 [ТС]
	на событии формы тоже не работает 0

@ksv_uk 7 / 7 / 1 Регистрация: 04.03.2011 Сообщений: 87
	14.10.2013, 10:41 [ТС]
	спасибо, так работает 0