Discussion :

[defluc]

Bonjour

Si, au lieu d'utiliser les flêches, on double clique sur un SpinEdit pour pouvoir entre une valeur manuellement, le composant se retrouve un instant sans valeur et une erreur est déclenchée avec le message : '' n'est pas une valeur entière correcte.

Une idée pour pallier cet inconvénient ??


Merci d'avance

[ShaiLeTroll]

Initialise à Zéro ton SpinEdit ... voir si en jouant avec le OnChange tu ne puissent pas corriger le text ...

[defluc]

Il est initialisé à 0.
L'erreur se produit avnt l'événement OnChange.

[PadawanDuDelphi]

Salut,

C'est un des problèmes du SpinEdit. A chaque OnChange, tu appelle automatiquement la conversion texte -> entier. Si la chaine ne représente pas une valeur entière valide, il y plantage. A gérer par exception je pense à un truc du genre:

Code :

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

1
2
3
4
try 
      SpinEdit1.Value  //utilisation de ta valeur
   except 
    End;

Personnellement, je préfère utiliser un simple TEdit (bien plus souple) associé à un TSpinButton: 2 lignes de codes et tu gèrent toi même tes sécurités, tu peut associer des float...

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
20
21
22
procedure TFiche1.SpinButton1UpClick(Sender: TObject);
Var
  ATemps:Double;
Begin
   If  TryStrToFloat(TimeEdit.Text,ATemps) = true then
   Begin
     ATemps := ATemps + PasDeTemps;
     If (ATemps > 5000) then ATemps:=5000; //limitation max si nécéssaire
     TimeEdit.Text := FloatToStr(ATemps);
   End;
End;
{{-------------------------------------------------------------
--------------------------------------------------------------}
procedure TFiche1.SpinButton1DownClick(Sender: TObject);
Begin
  If  TryStrToFloat(TimeEdit.Text,ATemps) = true then
  Begin
    ATemps := ATemps - PasDeTemps;
    If (ATemps < 0.0) then ATemps:=0; //limitation min si nécéssaire
    TimeEdit.Text := FloatToStr(ATemps);
  End;
End;

Il faut bien sur initialiser pasdetemps a la valeur de ton choix (= step de ton spinEdit)...

A+.

[mamou30]

Initialise ton SpinEdit.min:=0;

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.SpinEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if spinedit1.Text='' then spinedit1.Value:=0;
end;
 
end.

[defluc]

Merci à tous deux, je suis satisfait.

J'ai découvert la propriété Text du composant SpinEdit qui n'apparait pas dans l'inspecteur d'objets mais qui fonctionne bel et bien.

[f1iwq]

Bonjour

je déterre ce fil
il y a encore plus simple, il ne faut pas utiliser SpinEdit.Value qui pose problème dans les conditions qui ont été dites plus haut.

Perso je fais ceci dans l'évènement OnChange:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFormModifAction.SpinEdit1Change(Sender: TObject);
var i,erreur : integer;
begin
  val(SpinEdit1.text,i,erreur);
  if erreur<>0 then 
begin
  SpinEdit1.Value:=0;
  exit;  // si erreur quelconque dans le champ texte qui n'est pas convertible, on sort!
end; 
SpinEdit1.Value:=i;
 // sinon on utilise la valeur entière qui est dans i
  (...)
end;

Voila
au revoir