Discussion :

[marcootz]

Bonjour,

Je créer un TScrollBox comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TScrollBox *scrollPanel = new TScrollBox(this);

Après avoir créé cet objet, je veux qu'il execute maFonction() lors de l'évenement OnMouseWheelDown. Je dois donc affecter maFonction() à cet évènement par mon code.

J'ai utilisé ces deux facons mais erreur à chaque fois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
scrollPanel->OnMouseWheelDown = maFonction;
 
void __fastcall TFMiniCourbes::maFonction()
{
return;
}

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
scrollPanel->OnMouseWheelDown = maFonction;
 
void __fastcall TFMiniCourbes::maFonction(TObject *Sender,
      TShiftState Shift, TPoint &MousePos, bool &Handled)
{
return;
}

Si quelqu'un sait faire ca ou sait ou trouver la réponse je suis preneur. Merci d'avance.

[Sunchaser]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
scrollPanel->OnMouseWheelDown = maFonction;
 
void __fastcall TFMiniCourbes::maFonction(TObject *Sender,
      TShiftState Shift, TPoint &MousePos, bool &Handled)
{
return;
}

Si quelqu'un sait faire ca ou sait ou trouver la réponse je suis preneur. Merci d'avance.

Bonsoir,

As tu tenté, a tout hasard, d'écrire méticuleusement le prototype de la fonction devant correspondre a l'évènement OnMouseWheelDown tel qu'il est décris dans l'aide ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
(System::TObject *Sender, Classes::TShiftState Shift, const Types::TPoint &MousePos, bool &Handled)

Je dis ça juste parceque pour d'autres évènements, cela m'a sorti de l'embrouille.

@ +

[marcootz]

Salut Sunchaser,

Effectivement en utilisant tes paramètres cela passe à la compli. Merci pour ta réponse.
Par contre l'évènement n'est jamais déclenché quand le programme est en 'run'

[Sunchaser]

Re,

L'aide (celle de C++Builder6 et pas le 'truc' mystérieux du BDS) nous dis que:

OnMouseWheelDown n'a lieu que si le message n'a pas déjà été géré par un gestionnaire d'événement OnMouseWheel.

J'ai pourtant testé, et, truc bizarre, lorsque j'ai bien le focus sur un élément dans le TScrollBox -> ce sont les deux évènements qui se produisent ...

lé coquin ce builder

[marcootz]

Merci . Alors j'ai testé en mettant du code dans l'évènement OnMouseWheel mais bizarement aucun des trois évènement n'est déclenché...

Les noms des composants sont pourtants corrects, donc je dois bien récupérer les handles. Mes propriétés "tracking" des scrollbars sont bien sur 'true'. J'avoue que je suis un peu perdu là.

Voici le code de mes evenements scroll :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
void __fastcall TFMiniCourbes::scrollPanelMouseWheel(TObject *Sender, TShiftState Shift,
                const TPoint &MousePos, bool &Handled)
{
      MessageDlg("machin", mtInformation, TMsgDlgButtons() << mbOK, 0);
}
//---------------------------------------------------------------------------
void __fastcall TFMiniCourbes::scrollPanelMouseWheelDown(TObject *Sender, TShiftState Shift,
                const TPoint &MousePos, bool &Handled)
{
    SendMessage(this->scrollPanel->Handle,WM_VSCROLL,SB_LINEDOWN,0);
}
//---------------------------------------------------------------------------
 
void __fastcall TFMiniCourbes::scrollPanelMouseWheelUp(TObject *Sender, TShiftState Shift,
                const TPoint &MousePos, bool &Handled)
{
    SendMessage(this->scrollPanel->Handle,WM_VSCROLL,SB_LINEUP,0);
}

[marcootz]

La solution est donc de rentrer correctement les prototypes des fonctions appelé par les évenement onMouseWheel up et down comme la dit SunChaser precedement.

Il faut aussi mettre les propriété 'tracking' des scrollbar a true

Enfin il faut absolument que la zone de scroll soit en focus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

scrollPanel->SetFocus();