Question sur le Tupdown

**Pierre95** · 02/12/2016, 11h18

Bonjour,

Dans mon application, un Tupdown associé à un Tedit.
Au début du programme le Tedit contient une valeur Integer, par exemple 233.
L'incrément du Tupdown est de 10.
Si je clique sur le bouton haut de ce Tupdown, le Tedit passe à 240, alors que je souhaiterais qu'il passe à 243 et à 223 avec le bouton bas.

Comment pourrais-je faire pour parvenir au résultat escompté?

Merci de votre aide.

Cordialement.
Pierre

**retwas** · 02/12/2016, 13h58

J'avais déjà vu ce fonctionnement.. du coup j'ai pris un TSpinEdit pour ne pas recoder quelque chose ..

**Cirec** · 02/12/2016, 14h08

Salut,

tu peux t'en sortir avec l’évènement OnChangingEx

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
//uses CommCtrl; // pour UDM_SETPOS
procedure TUDemoMain.UpDown1ChangingEx(Sender: TObject;
  var AllowChange: Boolean; NewValue: Smallint;
  Direction: TUpDownDirection);
begin
  AllowChange := False;
  with (Sender as TUpDown) do
  case Direction of
    updUp : SendMessage(Handle, UDM_SETPOS, 0, MakeLong(Position + Increment, 0));
    updDown:SendMessage(Handle, UDM_SETPOS, 0, MakeLong(Position - Increment, 0));
  end; // case
end;

il faudra encore peaufiner le code .. notamment vérifier les limites
mais le principale y est

ps: j'avais testé le code original sous D7 D2009 et Berlin 10.1
et dans tous les cas au premier incrément il passait de 233 à 250 ou de 233 à 220 !!!
donc encore un autre comportement que celui que tu décris !
sous Win7 SP1

Edit:
après y avoir regardé de plus près ...
c'est encore plus simple !! pas besoin de contrôler les limites et tout fonctionne parfaitement tel quel

**Cirec** · 02/12/2016, 17h15

re,

petite précision:

avec le code ci-dessus ... si l'on a

Max := 300
Min := 0
Increment := 10
Position := 233

Position restera dans l'intervalle [3..293]

pour obtenir un intervalle [Min..Max]
il faut faire :

Code :

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

1
2
3
4
5
6
7
procedure TUDemoMain.UpDown1ChangingEx(Sender: TObject;
  var AllowChange: Boolean; NewValue: Smallint;
  Direction: TUpDownDirection);
begin
  AllowChange := False;
  SendMessage((Sender as TUpDown).Handle, UDM_SETPOS, 0, MakeLong(NewValue, 0));
end;