Salut à tous,

Je voudra savoir si qqn d'entre vous sait comment faire pour qu'un edit n'accepte que des chiffres.

Merci à tous et désolé pour autant de questions suivies.

Tu as SpinEdit dans l'onglet "Exemples" qui fait ça déjà :)

bouh

J'ai pas ce composant dans mon delphi 7

Dans l'événement OnKeyPress de ton Edit tu met ceci:

Procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If not (Key in ['0'..'9', DecimalSeparator]) then Key:=#7;
end;

Je conseille plutôt :
If not (Key in [#8, '0'..'9', DecimalSeparator]) then Key:=#9;
ce qui laisse passer aussi la touche [retour arrière]

@+
Bonne Prog'
Nico [www.ni69.new.fr]

---

Réponse acceptée !
salut ,
tu peux aussi utiliser la source de jappee:
http://www.delphifr.com/code.aspx?ID=32310
qui gére la saisie et la validité de la saisie (nobre entier ou decimaux)
bonne prog

Réponse acceptée !
salut
pour des nombres entiers j'utilise:
procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
 const   Valid = [#8, #13, '0'..'9'];
var buffer:string;
begin
  with sender as Tedit do
    if key='-' then
    begin
      buffer:= Text;
      if buffer='' then buffer:='0';
      if buffer<>'0' then
      begin
        if pos('-',buffer)=0 then buffer:='-'+buffer
        else delete(buffer,1,1);
      end;
      Text:=buffer;key:=#0;
    end;
    if not(key in valid) then key:=#0;
end;
procedure TFormi..Edit1Exit(Sender: TObject);
begin
  with sender as Tedit do    text:=inttostr(tag);// je place la valeur dans le tag

end;

Question à CptPingu et ni69, quand je mets la procédure que vous m'avez conseillé dans mon code, il me dit Edit1KeyPress non déclaré ...

j'avais oublie pour eviter les plantages:
procedure TForm1.Edi1Change(Sender: TObject);
var valeur:integer;
var buffer:string;
begin
  with sender as Tedit do
  begin
    valeur:=0;
    buffer:=text;
    if pos('-',buffer)=2 then
    begin delete(buffer,1,1);text:=buffer;end;
    if Text<>'' then valeur:=strtoint(Text);
    Tag:=valeur;
  end;
end;

pour ton pb de Edit1KeyPress non déclaré as tu double clique sur l'evenement onkeypress de label1?