Discussion :

[zax-tfh]

Salut à tous !

Alors voila, dans le cadre d'un projet, j'ai fait un petit truc pour parametrer un timer. J'ai trois editbox, trois updown et un bouton pour valider.

Lorsque je lance ma form, j'initialise trois variables : jours, heures, minutes avec la valeur de mon choix. A chaque fois que je clicke sur un up ou down, il met a jour la valeur correspondante avec un -1 ou +1 (et les conditions comme à 60minutes, il ajoute une heure et repasse les minutes à 0).

Là où c'est mystique, c'est que mes conditions de décrementation sont basiques, enfin comme tout le monde l'imagine quoi, si =0 alors pas de decrementation ou plutot on decremente l'element superieur et on met à fond lelement que l'on decremente (59minutes par exemple).

Mais là le soucis c'est qu'il ne veut pas décrémenter en dessous des valeurs de départ....
Alors je joint les sources sur un mini projet pour que vous puissiez voir de vous meme car là, vraiment je seche total..... Je suis sur que c'est un truc tout bete mais bon, y'a des fois comme ca on cale...

http://zaxworld.free.fr/fichiers/probleme.rar

Merci d'avance !
@++

[Clorish]

Ouaip .... Il doit bloquer en interne.

Ce qui semble logique. Quel idee de vouloir decrementer en dessous de la variable limite :pp

[Pierre Castelain]

C'est normal, tu as oublié que le composant TUpDown possède une propriété Position qui est controlée par les propriété Min et Max.
Au départ Position vaut 0, quand tu clique sur le bouton du haut Position est incrémenté mais il est décalé par rapport à tes valeurs d'initialisation. Donc, quand tu clique sur le bouton du bas le composant t'empêche de descendre au dessous de la position 0 qui correspond à la valeur d'initialisation du TEdit.
En clair :
- soit tu supprime tes variables editjour, editheure et editminute et tu utilise la propriété Position des composants TupDown,
- soit tu synchronise la propriété Position avec la variable correspondante.

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
 
procedure Tconfigprog.Button1Click(Sender: TObject);
var
  jours,minutes,heures:integer;
begin
dureems:=95820000;  //equivaut à 1j2h37min
jours:=trunc(dureems/86400000);
heures:=trunc((dureems - (jours*86400000))/3600000);
minutes:=trunc((dureems - (jours*86400000) - (heures * 3600000))/60000);
edit2.Text:=inttostr(jours);
UpDown1.Position:= jours;
edit3.Text:=inttostr(heures);
UpDown2.Position:= heures;
edit4.Text:=inttostr(minutes);
UpDown3.position:= minutes;
editjour:=jours;
editheure:=heures;
editminute:=minutes;
end;

- Ou alors, tu utilise de simples boutons à la place des TupDown.

[zax-tfh]

Salut !

Nickel chrome ! J'ai modifié en consequence et ca tourne impec !
En fait je crois que j'etais un peu trop fatigué hier et que j'ai pas pensé que le updown avait ce genre de proprietés. En fait je croyais que c'etait juste un groupe de deux boutons et point barre ^^ Donc j'ai lié mais updown a mes textbox et fait tout ce kil fallait. Maintenant ca marche impec !!!

Developpez.com ca roxx !!!

Merci beaucoup ! sans vous je serais paumé ^^
++