Contrôler un TEdit ?

**sanqara** · 05/12/2006, 17h55

Bonjour,

J'ai écrit une procédure qui valide les données saisies dans un TEdit. Ces données doivent être exclusivement les réels pour être acceptées. Sinon elles sont réjétées. J'ai placé cette procedure dans l'évènement OnKeyPress de mon TEdit et elle fonctionne bien. Cependant ma procédure devient impuissante lorsqu'on colle les données via Shift+Insert ou Ctrl+V ou via un ménu contextuel.

Comment puis-je rémédier à cette situation ?

A bientôt.

**Matt2094** · 05/12/2006, 18h34

Mets le même code dans la propriété OnEnter de ton TEdit.

**edam** · 05/12/2006, 19h49

Envoyé par Matt2094

Mets le même code dans la propriété OnEnter de ton TEdit.

????????????????
test le contenu de TEdit dans onExit et aussi si tu valide tes données
bien sur tu peut faire le meme teste dans onchange mais je ne te conseil pas

**Droïde Système7** · 05/12/2006, 19h57

Bonjour,

Tu peux aussi intercepter le CTRL V et de là interdire et filtrer le contenu du PP avant de le réinjecter dans ton TEdit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Edit1Change(Sender: TObject);
begin
     // si une virgule ou un point est placé...
    if pos(DecimalSeparator,Edit1.Text)
    or pos (',', Edit1.Text)
    or pos ('.', Edit1.Text) > 0 then
  begin
   Edit1.Text := '';
   ShowMessage('Ce nombre ne représente pas un entier !');
  end;
end;