[roulette de souris]

Messages postés
82
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
3 juin 2007
-
Messages postés
82
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
3 juin 2007
-
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

Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
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
Messages postés
82
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
3 juin 2007

Merci DelphiProg, il suffisait effectivement de mettre Handled à True, ce que j'ignorais...
Amicalement,
Lucien