Discussion :

[debutantphp_70]

Bonjour

J utilise cette procédure pour ne saisir que des nombres (entiers ou décimaux) dans un TEdit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
if not(Key in [#8, '0' .. '9',
    System.SysUtils.FormatSettings.DecimalSeparator]) then
  begin
    ShowMessage('Invalid key: ' + Key);
    Key := #0;
  end
  else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and
    (Pos(Key, NON_DU_TEDIT.Text) > 0) then
  begin
    Key := #0;
  end

J ai donc ceci pour chacun des tedit avec chaque fois le nom du TEdit à la place de NOM_DU_TEDIT dans le code.

J aimerais pouvoir n en avoir qu une qui prendrait en compte le nom du TEdit concerné.

Merci pour votre aide.

[Dev_detif]

bonjour,

Il faut créer une seule procédure et la rattacher à chaque edit et utiliser le sender pour identifier l'edit.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure EditChange(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}


procedure TForm2.EditChange(Sender: TObject);
begin
  if not(Key in [#8, '0' .. '9',
    System.SysUtils.FormatSettings.DecimalSeparator]) then
  begin
    ShowMessage('Invalid key: ' + Key);
    Key := #0;
  end
  else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and
    (Pos(Key, Sender.Text) > 0) then
  begin
    Key := #0;
  end
end;

end.

[SergioMaster]

Bonjour,

dans le code il suffirait d'utiliser Sender mais surtout de caster celui-ci (ce qui n'a pas été indiqué par Dev_detif qui viens de me griller d'un poil)

Code :

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

1
2
else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and
(Pos(Key, TEdit(Sender).Text) > 0) then

mais, il me semblait que vous utilisez FMX, auquel cas je m'étonne que vous n'utilisiez pas la propriété KeyboardType pour éviter tout (ou grande partie) de ce code

PS. Dans la liste des keys j'aurais ajouté #9 ou vktab (tabulation) #13 ou vkReturn (Entrée) , les touches virtuelles se trouvant dans l'unité System.UITypes
PS. @Dev_detif pensez à utiliser les balises de code (bouton #)

[debutantphp_70]

merci à vous pour vos réponses.

Je n utilise pas FMX.

Je souhaite que seule la saisie des chiffres et du séparateur décimal soit possible mais je n ai peut être pas envisagé toutes les possibilités logiques. Quel est l intérêt de permettre la tabulation ou la touche entrée dans ce cas précis.

[SergioMaster]

Bonjour,

Je n'utilise pas FMX.

Comme quoi il faut toujours indiqué dans vos messages de début, l'environnement que vous utilisez. Je réponds à beaucoup, j'ai du me tromper de personne.

Je souhaite que seule la saisie des chiffres et du séparateur décimal soit possible mais je n'ai peut-être pas envisagé toutes les possibilités logiques. Quel est l’intérêt de permettre la tabulation ou la touche entrée dans ce cas précis.

Changer de zone de saisie ne se fait pas qu'avec la souris

[Andnotor]

Changer de zone de saisie ne se fait pas qu'avec la souris

Ça va dépendre de l'événement utilisé, la touche TAB ne génère pas OnKeyPress.


Cela dit, il n'y a pas besoin de tester les caractères :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  Dummy :double;
begin
  if not TryStrToFloat(TCustomEdit(Sender).Text +Key, Dummy) then
    Key := #0;
end;

Là où ça se complique un peu est si on veut gérer le signe. Je m'étais fait un class helper pour traiter cela.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
type
  TCustomEditHelper = class helper for TCustomEdit
  public
    procedure ValidateFloat(var aKey :char; aInvertSign :boolean = FALSE; aShowPlusSign :boolean = FALSE);
  end;
 
procedure TCustomEditHelper.ValidateFloat(var aKey :char; aInvertSign :boolean; aShowPlusSign :boolean);
var
  s     :string;
  c     :char;
  Start :integer;
  Len   :integer;
  Value :double;
 
begin
  s     := Text;
  Start := SelStart;
  Len   := SelLength;
 
  if not aKey.IsDigit then
  begin
    if not (ord(aKey) in [VK_ESCAPE, VK_BACK]) then
    begin
      if CharInSet(aKey, ['+','-']) then
      begin
        if s.Length > 0 then
        begin
          c := s.Chars[0];
 
          if aInvertSign then
            if c = '-'
            then aKey := '+'
            else aKey := '-';
 
          case aKey of
            '+' : begin
                    if c = '-' then
                    begin
                      if aShowPlusSign then
                        s := s.Replace(c, aKey)
                      else
                      begin
                        s := s.Remove(0,1);
 
                        if Start = 0
                        then dec(Len)
                        else dec(Start);
                      end
                    end
 
                    else if (c <> '+') and aShowPlusSign then
                    begin
                      s := aKey +s;
                      inc(Start);
                    end;
                  end;
 
            '-' : begin
                    if c = '+' then
                      s := s.Replace(c, aKey)
 
                    else if c <> '-' then
                    begin
                      s := aKey +s;
                      inc(Start);
                    end;
                  end;
          end;
 
          Text := s;
          aKey := #0;
        end;
      end
 
      else if not TryStrToFloat(Text +aKey, Value) then
        aKey := #0;
    end;
  end
 
  else
  begin
    s := s.Remove(Start, Len);
    s := s.Insert(Start, aKey);
 
    if not TryStrToFloat(s, Value) then
      aKey := #0
 
    else if aShowPlusSign and (s.IsEmpty or not CharInSet(s.Chars[0], ['+','-'])) then
    begin
      Text := '+' +Text;
      inc(Start);
    end;
  end;
 
  SelStart  := Start;
  SelLength := Len;
end;

aInvertSign permet d'inverser le signe à l'aide d'une seule touche + ou - (style +/- d'une calculette).
aShowPlusSign force l'affichage du signe positif.

Code :

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

1
2
3
4
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  TCustomEdit(Sender).ValidateFloat(Key);
end;

[debutantphp_70]

Merci pour toutes ces précisions