Discussion :

[moihenry]

Bonjour tout le monde,

j'ai un petit souci. J'ai une application avec un TEdit et un TSpinEdit.
Le TEdit ne peut accepter qu'un nombre real positif.
Donc j'ai une fonction :

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
procedure TForm1.Edit1EditingDone(Sender: TObject);
var interest:real;
begin
    try
      begin
        interest:=StrToFloat(Edit1.Text);
        if (interest<0) then
        begin
          MessageDlg('Error','Please type a positive real number to continue.', mtError, [mbOk],0);
          Edit1.SelectAll;
          Edit1.SetFocus;
        end;
      end;
      except
        MessageDlg('Error','Please type a positive real number to continue.', mtError, [mbOk],0);
        Edit1.SelectAll;
        Edit1.SetFocus;
      end;
 
end;

Lorsque je clique sur le spinedit, pas de souci cela fonctionne, le focus resete sur le tedit, mais lorsque je clique sur les petites flèches du tspinedit (vers le haut ou vers le bas), alors le tspinedit se met à incrémenter ou décrementer automatiquement la valeur jusqu'à la valeur maximum ou minimum autorisée. Je ne comprends pas trop comment cela se fait. J'ai essayé avec un OnExit event mais cela ne fonctionne pas mieux.

Merci pour votre aide !

[moihenry]

J'ai joué avec la propriété Increment. Je la mets à zéro quand il y a une erreur et sinon à 1, et cela semble fonctionner.
Bizarre quand mm ce soucis.

[ThWilliam]

Bonjour,

En fait c'est compréhensible.
La "partie Edit" d'un TSpinEdit est un composant "fenêtré" (dérivé de TWinControl), c.à.d. un composant qui peut recevoir le Focus (comme TButton...).
En cliquant sur l'edit, tu tentes de lui attribuer le focus, ce qui provoque l'exit de Edit1 et donc avec ton code le focus revient à edit1.
Par contre, en cliquant sur les flèches, tu ne provoques pas directement le changement de focus.
Je n'ai pas regardé le code du TSpinEdit, mais on pourrait le concevoir comme un composant contenant un TEdit + 2 TSpeedButton.
Or, TSpeedButton est un composant "non fenêtré" (dérivé de TGraphicControl), donc il n'entraine pas de changement de focus.
C'est une lacune de programmation, pcq en cliquant sur les flèches, il faudrait d'abord tenter de donner le focus au SpinEdit, puis, si le focus est attribué, changer la valeur de l'edit.

Comment résoudre ton problème ?

1) tu peux rendre disabled le SpinEdit, tant qu'Edit1 n'a pas une bonne valeur :

Code :

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

1
2
3
4
5
6
procedure TForm1.Edit1Change(Sender: TObject);
var
  a: extended;
begin
  spinedit1.enabled:= (TryStrToFloat(edit1.text, a) and (a >= 0));
end;

2) Ce que je fais souvent, c'est contrôler la valeur en temps réel et la corriger directement. Dans ce cas, je ne fais pas de messages d'erreur, sinon c'est infernal pour l'utilisateur. Dans un label ou dans le hint, j'indique "Veuillez rentrer une valeur réelle positive".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Edit1Change(Sender: TObject);
var
  a: extended;
begin
  if edit1.text = '' then edit1.text:= '0'
  else
  if not TryStrToFloat(edit1.Text, a) or (a < 0.0) then
  begin
     Edit1.Text:= '0';
     Edit1.SelectAll;
  end;
end;

Ce qui ne t'empêche pas de refaire un contrôle à l'Exit de ton edit1.

Thierry

[Ph. B.]

Bonjour,

j'ai un petit souci. J'ai une application avec un TEdit et un TSpinEdit.

Hormis le test réalisé sur le contenu de Edit1, quelles sont les événements qui lient ce composant à SpinEdit1 ? Et le code qui fait interagir les 2 ?