[roulette de souris]

cs_lucien Messages postés 82 Date d'inscription vendredi 27 décembre 2002 Statut Membre Dernière intervention 3 juin 2007 - 28 févr. 2003 à 09:46
cs_lucien Messages postés 82 Date d'inscription vendredi 27 décembre 2002 Statut Membre Dernière intervention 3 juin 2007 - 28 févr. 2003 à 13:57
Bonjour,
je souhaite utiliser la roulette pour faire défiler des fiches.
L'emploi de FormMouseWheelDown et de FormMouseWheelUp
devrait les faire avancer de un or elles avancent de quatre!
L'un de vous saura me dire ce qu'il manque à mon code. :)

procedure TCont.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if Frang +1 <=Clubs.Count then
   deplacementDansListeClub(dsuiv);
end;


Amicalement,
Lucien

2 réponses

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
28 févr. 2003 à 12:25
Si l'on savait ce qu'il y a dans deplacementDansListeClub(dsuiv), ce serait plus facile de donner une avis.
Néanmoins, tu devrais mettre Handled à True pour indiquer à Delphi que l'évènement est géré par ton code et qu'il ne doit pas aussi agir de son côté.
May Delphi be with you
0
cs_lucien Messages postés 82 Date d'inscription vendredi 27 décembre 2002 Statut Membre Dernière intervention 3 juin 2007
28 févr. 2003 à 13:57
Merci DelphiProg, il suffisait effectivement de mettre Handled à True, ce que j'ignorais...
Amicalement,
Lucien
0
Rejoignez-nous