Discussion :

[Askarod]

Bonjour,

Je voudrai savoir comment limiter la saisie dans un Edit de telle sorte par exemple que l'utilisateur ne puisse saisir que 0, 1, 2 ou 3.


Je voudrai en fait l'empêcher de saisir tout autre caractère.


Merci

[Rayek]

Version simple

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);
begin
  if Key <> #8 then
    if not (Key in ['0','1','2','3']) then
      key := #0;
end;

ou

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);
begin
  if Key <> #8 then
    if (Key < '0') or (Key >'3') then
      key := #0;
end;

[Askarod]

nickel chrome ^^

[Rayek]

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);
begin
  if Key <> #8 then
    if not (Key in ['0','1','2','3',' ']) then
      key := #0;
end;

ou

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);
begin
  if Key <> #8 then
    if ((Key < '0') or (Key >'3')) and (Key <> ' ') then
      key := #0;
end;